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FOREWORD 


This  technical  report  covers  work  performed  under  Air  Force 
Contract  F33600-87-C-0464,  DAPro  Project.  This  contract  is 
sponsored  by  the  Manufacturing  Technology  Directorate,  Air  Force 
Systems  Command,  Wright-Patterson  Air  Force  Base,  Ohio.  It  was 
administered  under  the  technical  direction  of  Mr.  Bruce  A. 
Rasmussen,  Branch  Chief,  Integration  Technology  Division, 
Manufacturing  Technology  Directorate,  through  Mr.  David  L.  Judson, 
Project  Manager.  The  Prime  Contractor  was  Integration  Technology 
Services,  Software  Programs  Division,  of  the  Control  Data 
Corporation,  Dayton,  Ohio,  under  the  direction  of  Mr.  W.  A. 
Osborne.  The  DAPro  Project  Manager  for  Control  Data  Corporation 
was  Mr.  Jimmy  P.  Maxwell. 


The  DAPro  project  was  created  to  continue  the  development,  test, 
and  demonstration  of  the  Integrated  Information  Support  System 
(IISS) .  The  IISS  technology  work  comprises  enhancements  to  IISS 
software  and  the  establishment  and  operation  of  IISS  test  bed 
hardware  and  communications  for  developers  and  users. 

The  following  list  names  the  Control  Data  Corporation 
subcontractors  and  their  contributing  activities: 


SUBCONTRACTOR 


RQ.LE 


Control  Data  Corporation 


D.  Appleton  Company 


ONTEK 


Simpact  Corporation 


Structural  Dynamics 
Research  Corporation 


Arizona  State  University 


Responsible  for  the  overall  Common 
Data  Model  design  development  and 
implementation,  IISS  integration  and 
test,  and  technology  transfer  of  IISS. 

Responsible  for  providing  software 
information  services  for  the  Common 
Data  Model  and  IDEFIX  integration 
methodology. 

Responsible  for  defining  and  testing  a 
representative  integrated  system  base 
in  Artificial  Intelligence  techniques 
to  establish  fitness  for  use. 

Responsible  for  Communication 
development . 

Responsible  for  User  Interfaces, 
Virtual  Terminal  Interface, and  Network 
Transaction  Manager  design, 
development,  implementation,  and 
support . 

Responsible  for  test  bed  operations 
and  support . 


iii 


TABLE  OF  CONTENTS 


UM  620344300 
30  September  1990 


Page 


SECTION  1.0  INTRODUCTION  .  1-1 

SECTION  2.0  DOCUMENTS  .  2-1 

2.1  Reference  Documents  .  2-1 

2.2  Terms  and  Abbreviations  .  2-1 

SECTION  3.0  VIRTUAL  TERMINAL  COMMANDS  .  3-1 

3.1  General  .  3-1 

3.2  Command  Descriptions  .  3-2 

3.3  Input-Output  Routines  .  3-7 

SECTION  4.0  TERMINAL  IMPLEMENTATION  .  4-1 

4.1  Adding  New  Terminals  .  4-1 

4.2  General  Purpose  Device  Driver  .  4-1 

4.3  Special  Case  Device  Driver  .  4-2 

APPENDICES 

A  VIRTUAL  TERMINAL  CHARACTER  SET  .  A-1 

B  COMMAND  REFERENCE  .  B-1 

C  DEVICE  DRIVER  SUPPORT  ROUTINES  .  C-1 

D  DEVICE  DRIVER  INCLUDE  FILES  .  D-1 

E  SAMPLE  DEVICE  DRIVER  (DEC  VT-100 

-  MONOCHROME)  .  E-1 

F  SAMPLE  DEVICE  DRIVER  (IBM-3270  -  COLOR)  .  F-1 


Accession  For 

BTIS  GRAtl 

DTIC  TAB 

□ 

Uiioruiounced 

□ 

Justillcatlcn — 

By - - - - - 

Distribution/^^ _ 

Avalleblllty  CodM 


jAvali  aoe/or 
iDlat  1  Spaolal 


V 


UM  620344300 
30  September  1990 


y  SECTION  1 

INTRODUCTION 

\ 

'^his  manual  describes  the  program  callable  interface  to  the 
Integrated  Information  Support  System  Virtual  Terminal,  the 
Virtual  Terminal  commands,  and  provides  terminal  implementation 
information  for  programmers  who  wish  to  add  new  terminal  types 
to  the  system.  Although  the  program  callable  interface  is  NOT 
supported  in  IISS  Release  3.0,  it  will  be  supported  in  later 
releases. 

This  manual  is  intended  for  application  and  system 
programmers  working  in  the  IISS  environment. 
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SECTION  2 
DOCUMENTS 


2.1  Reference  Documents 


[1]  Systran,  ICAM  Documentation  Standards,  ICAM  Document 
IDS  150120000C,  15  September  1983. 

[2]  Digital,  VAX- 11  Architecture  Handbook,  Digital 
Equipment  Corp.,  Maynard,  MA,  1979. 

[3]  American  National  Standards  Institute,  Code  for 
Information  Interchange,  ANSI  X3. 4-1977,  9  June  1977. 

[4]  American  National  Standards  Institute,  Code  Extension 
Techniques  for  Use  with  the  7 -bit  Coded  Character  Set 
of  American  National  Standard  Code  for  Information 
Interchange,  ANSI  X3. 41-1974,  14  May  1974. 

[5]  American  National  Standards  Institute,  Additional 
Controls  for  Use  With  ^erican  National  Standard  Code 
for  Information  Interchange ,  ANS I  X3. 64-1979,  18  July 
1979. 

[6]  American  National  Standards  Institute,  Hollerith 
Punched  Card  Code,  ANSI  X3. 26-1980,  2  May  1980. 

[7]  Structural  Dynamics  Research  Coirporation,  Report 
Writer  User  Manual ,  UM  620344501,  31  May  1988. 

[8]  Structural  Dynamics  Research  Corporation,  Application 
Generator  User  Manual ,  UM  620344502,  31  May  1988. 

[9]  Structural  Dynamics  Research  Corporation,  Text 
Editor  User  Manual ,  UM  620344600,  31  May  1988. 

[10]  Structural  Dynamics  Research  Corporation,  Form 
Processor  User  Manual ,  UM  620344200,  31  March 
1988. 

[11]  structural  Dynamics  Research  Corporation,  Form 
Editor  User  Manual,  UM  620344400,  31  May  1988. 

[12]  Structural  Dynamics  Research  Corporation,  Virtual 
Terminal  Development  Specification,  DS  620344300,  31 
March  1988. 

2 . 2  Terms  and  Abbreviations 


American  Standard  Code  for  Infopnation  Interchange: 
(ASCII),  the  character  set  defined  by  ANSI  X3.4  and  used 
by  most  computer  vendors. 
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Application  Interface;  (AI) ,  subset  of  the  IISS  User 
interface  that  consists  of  the  callable  routines  that  are 
linked  with  applications  that  use  the  Form  Processor  or 
Virtual  Terminal.  The  AI  enables  applications  to  be  hosted 
on  computers  other  than  the  host  of  the  User  Interface. 

Application  Process;  (AP) ,  a  cohesive  unit  of  software  that 
can  be  initiated  as  a  unit  to  perform  some  function  or 
functions. 

Attribute ;  field  characteristic  such  as  blinking, 
highlighted,  black,  etc.  and  various  other  combinations. 
Background  attributes  are  defined  for  forms  or  windows 
only.  Foreground  attributes  are  defined  for  items. 
Attributes  may  be  permanent,  i.e.,  they  remain  the  same 
unless  changed  by  the  application  program,  or  they  may  be 
temporary,  i.e.,  they  remain  in  effect  until  the  window  is 
redisplayed. 

Communication  Services;  allows  on  host  interprocess 
communication  and  inter-host  communication  between  the 
various  Test  Bed  subsystems. 

Computer  Program  Configuration  Item;  (CPCI) ,  an  aggregation 
of  computer  programs  or  any  of  their  discrete  portions, 
which  satisfies  an  end-use  function  and  is  designed  by  the 
ICAM  Program  Office  for  ICAM  Configuration  Management. 

Data  stream;  device  I/O  commands  and  their  accompanying 
data. 

Device  Drivers;  (DD) ,  software  modules  written  to  handle 
I/O  for  a  specific  kind  of  terminal.  The  modules  map 
terminal  specific  commands  and  data  to  a  neutral  format. 
Device  drivers  are  part  of  the  UI  Virtual  Terminal. 

Extended  Binary  Coded  Decimal  Interchange  Code;  (EBCDIC) , 
the  character  set  used  by  a  few  computer  vendors  (notable 
IBM)  instead  of  ASCII. 

Field;  two  dimensional  space  on  a  terminal  screen. 

Integrated  Information  Support  System;  (IISS) ,  a  computing 
environment  used  to  investigate,  demonstrate,  test  the 
concepts  and  produce  application  for  information  management 
and  information  integration  in  the  context  of  Aerospace 
Manufacturing.  The  IISS  addresses  the  problems  of 
integration  of  data  resident  on  heterogeneous  data  bases 
supported  by  heterogeneous  computers  interconnected  via  a 
Local  Area  Network. 

Logical  Device;  a  conceptual  device  that  identifies  a  top 
level  window  of  an  application.  It  is  used  to  distinguish 
between  multiple  applications  running  simultaneously  on  a 
physical  device.  NOTE  that  a  single  application  can  have 
more  than  one  logical  device.  To  the  end  user  this  also 
appears  as  multiple  applications  running  simultaneously. 
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Network  Transaction  Manager;  (NTM) ,  IISS  subsystem  that 
performs  the  coordination,  communication  and  housekeeping 
functions  required  to  integrate  the  Application  Processes 
and  System  Services  resident  on  the  various  hosts  into  a 
cohesive  system. 

Operating  System;  (OS) ,  software  supplied  with  a  computer 
which  allows  it  to  supervise  its  own  operations  and  manage 
access  to  hardware  facilities  such  as  memory  and 
peripherals. 

Physical  Device;  a  hardware  terminal. 

Reverse  Virtual  Terminal;  a  subset  of  IISS  User  Interface 
that  translates  IBM  3270  data  stream  to  Virtual  Terminal 
data  stream  and  vice  versa. 

User  Interface;  (UI) ,  IISS  subsystem  that  controls  the 
user's  terminal  and  interfaces  with  the  rest  of  the  system. 
The  UI  consists  of  two  major  subsystems;  The  User  Interface 
Development  System  (UIDS)  and  the  User  Interface  Management 
System  (UIMS) . 

User  Interface  Management  System;  (UIMS) ,  the  run  time  UI. 
It  consists  of  the  Form  Processor,  Virtual  Terminal, 
Application  Interface  and  the  User  Interface  Services. 

User  Interface  Monitor;  (UIM) ,  part  of  the  Form  Processor 
that  handles  messaging  between  the  NTM  and  the  UI.  It  also 
provides  authorization  checks  and  initiates  applications. 

User  Interface/Virtual  Terminal  Interface;  (UI/VTI) , 
another  name  for  the  User  Interface. 

Virtual  Terminal ;  (VT) ,  subset  of  the  IISS  User  Interface 
that  performs  the  interfacing  between  different  terminals 
and  the  UI.  This  is  done  by  defining  a  specific  set  of 
terminal  features  and  protocols  which  must  be  supported  by 
the  UI  software  which  constitutes  the  virtual  terminal 
definition.  Specific  terminals  are  then  mapped  against  the 
virtual  terminal  software  by  specific  software  modules 
written  for  each  type  of  real  terminal  supported. 

Virtual  Terminal  Interface;  (VTI) ,  the  callable  interface 
to  the VT. 

Window;  dynamic  area  of  a  form  in  which  predefined  forms 
may  be  placed  at  runtime. 

Window  Manager;  a  facility  which  allows  the  following  to  be 
manipulated;  size  and  location  of  windows,  the  device  on 
which  an  application  is  running,  the  position  of  a  form 
within  a  window.  It  is  part  of  the  Form  Processor. 
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SECTION  3 

VIRTUAL  TERMINAL  COMMANDS 


3 . 1  \ General 

The  Virtual  Terminal  accepts  two  kinds  of  data;  Graphic 
(or  printable)  Characters  which  are  displayed  on  the  screen, 
and  Commands  which  affect  the  way  in  which  Graphic  Characters 
are  displayed. 

The  format  of  the  following  command  descriptions  is:  the 
conunand  name  and  short  description,  the  command  syntax,  and  a 
detailed  description  of  the  command*  In  the  command  syntax, 
characters  within  angle  brackets  (e^.  <ESC>)  indicate  Control 
Characters  (codings  depend  on  your  ^stem  character  set  -  see 
Appendix  A) ,  Pn  indicates  a  Numeric  Parameter,  Ps  indicates  a 
Selective  Parameter,  an  ellipsis  (..i)  indicates  additional 
unspecified  characters,  and  all  other^  characters  stand  for 
themselves . 

\ 

Parameters  are  represented  in  ordinary  human-readable 
decimal  form,  with  Numeric  Parameters  representing  numbers 
(such  as  a  row  number  or  the  number  of  times  to  repeat  a 
function) ,  and  Selective  Parameters  standing  for  selections 
from  a  list  of  options  with  multiple  selections  separated  by 
semicolons.  Unless  specified  otherwise.  Numeric  Parameters 
indicate  the  number  of  times  to  repeat  the  specified  function, 
omitted  Numeric  Parameters  are  taken  to  be  1,  and  omitted 
Selective  Parameters  are  taken  to  be  0. 

The  virtual  Terminal  screen  consists  of  an  arbitrary  number 
of  rows  numbered  from  1  to  n,  and  an  arbitrary  number  of 
columns  numbered  from  1  to  m;  the  actual  size  is  specified  by 
the  Define  Window  command.  The  standard  ordering  of  objects  is 
from  top  to  bottom  and  left  to  right,  with  wrap-around  from  the 
last  object  to  the  first.  In  the  command  descriptions,  "next" 
refers  to  this  order,  "previous”  to  its  reverse.  For  example, 
from  row  6  column  80  on  an  80  character  wide  screen,  the  next 
character  position  is  row  7  column  1,  and  the  previous 
character  position  is  row  6  column  79. 

Any  command  whose  effect  is  limited  to  a  single  field 
including  Graphic  Characters)  will  cause  the  cursor  to  move  to 
the  next  unprotected  field  before  the  command  takes  effect  if 
the  cursor  is  in  a  protected  field  when  the  command  is 
received.  If  there  are  no  unprotected  fields  defined,  the 
command  is  ignored. 

An  application  program  is  only  permitted  to  use  the 
following  commands:  Bell,  Define  Field,  Erase  Field,  Record 
Separator,  Set  Transmit  State.  The  following  commands  may  also 
be  used,  subject  to  constraints;  Define  Window  (window  id  not 
specified) ,  Erase  Window  (window  id  not  specified) ,  all  cursor 
positioning  commands  (position  within  logical  device  bounds) . 

The  following  commands  are  for  internal  use  only  and  may  not  be 
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used  under  any  circumstances:  Define  Window  (window  id 
SDccified) ,  Remove  Window,  Erase  Window  (window  id  specified) , 
Set  Window,  Window  Precedence.  All  other  commands  may  be  used, 
but  there  is  no  guarantee  that  the  application  will  correctly 
be  constrained  to  the  limits  of  its  logical  device. 

3 . 2  Command  Descriptions 

Graphic  Character 

Causes  the  character  to  be  displayed  according  to  the  graphic 
rendition  in  effect  at  the  cursor  location  and  advances  the 
cursor  to  the  next  character  position.  This  advancing  may 
possibly  cause  scrolling. 

BEL  -  Sound  Bell 
<BEL> 

Sounds  an  audible  alarm  at  the  terminal. 

BS  -  Backspace 
<BS> 

Moves  the  cursor  to  the  previous  character  position;  if  the 
cursor  is  at  the  left  margin,  no  action  occurs. 

HT  -  Horizontal  Tab 
<HT> 

Moves  the  cursor  to  the  next  field. 

LF  -  Line  Feed 
<LF> 

Moves  the  cursor  down  to  the  next  line  in  the  current  column 

and  may  possibly  cause  scrolling  the  screen. 

FF  -  Form  Feed 
<FF> 

Clears  the  screen  and  moves  the  cursor  to  the  first 
unprotected  character  position.  In  Forms  Mode,  only 
unprotected  areas  of  the  screen  are  erased. 

CR  -  Carriage  Return 
<CR> 

Moves  the  cursor  to  the  left  margin  in  the  current  line. 

RS  -  Record  Separator 
<RS> 

Used  to  indicate  end  of  a  formatted  buffer. 

US  -  Unit  Separator 
<US> 

Used  to  indicate  end  of  subset  of  formatted  buffer. 

IND  -  Index 
<ESC>  D 
Same  as  LF. 


3-2 


UM  620344300 
30  September  1990 


NEL  -  Next  Line 
<ESC>  E 

Same  as  CR  followed  by  LF. 


RI  -  Reverse  Index 
<ESC>  M 

Moves  the  cursor  up  to  the  previous  line  in  the  current 
column,  possibly  scrolling  the  screen. 


STS  -  Set  Trnsmit  STate 


<ESC>  S 

Indicates  that  the  currently  selected  window  is  to  be 
enabled  for  input.  All  unguarded  fields  are  made  enterable 
and  a  data  message  will  be  sent  when  a  function  key  is 
pressed. 


ARC  -  Application  Program  Command 
<ESC>  _  Pn  <ESC>  \ 

Generated  when  a  function  key  is  pressed.  The  parameter  is 
the  function  key  number  (0  -  n)  which  must  not  be  omitted. 
Function  key  zero  is  the  "ENTER"  key. 


RIS  -  Reset  to  Initial  State 
<ESC>  c 

Resets  the  terminal  to  its  initial  state.  The  screen  is 
cleared,  the  cursor  is  positioned  in  the  upper  left  corner. 


REF  -  Refresh  Screen 
<ESC>  ? 

Retransmits  the  current  screen  contents  to  the  terminal. 

Its  main  uses  are  to  recover  from  unsolicited  messages  or 
line  noise  which  have  corrupted  the  screen  contents,  or  to 
update  the  terminal  when  in  Deferred  Display  Mode. 


ICH  -  Insert  Character 
<ESC>  [  Pn  @ 

Makes  room  for  a  character  by  shifting  the  rest  of  the  field 
one  character  position  to  the  right  (and  down) .  Characters 
shifted  past  the  end  of  the  field  are  lost.  The  cursor  is 
left  at  the  first  inserted  character  position  (i.e.  not 
moved)  . 


CUU  -  Cursor  Up 

<ESC>  [  Pn  A 

Moves  the  cursor  to  the  previous  line  in  the  current  column, 
but  not  past  the  top  margin. 

CUD  -  Cursor  Down 
<ESC>  [  Pn  B 

Moves  the  cursor  to  the  next  line  in  the  current  column,  but 
not  past  the  bottom  margin. 


CUF  -  Cursor  Forward 
<ESC>  [  Pn  C 

Moves  the  cursor  to  the  next  character  position,  but  not 
past  the  right  margin. 
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CUB  -  Cursor  Backward 
<ESC>  [  Pn  D 

Moves  the  cursor  to  the  previous  character  position,  but  not 
past  the  left  margin. 

CNL  -  Cursor  Next  Line 
<ESC>  [  Pn  E 

Moves  the  cursor  to  the  left  margin  of  the  next  line,  but 
not  past  the  bottom  margin. 

CPL  -  Cursor  Previous  Line 
<ESC>  [  Pn  F 

Moves  the  cursor  to  the  le^t  margin  of  the  previous  line, 
but  not  past  the  top  margin. 

CUP  -  Cursor  Position 
<ESC>  [  Pn  ;  Pn  H 

Moves  the  cursor  to  the  specified  position.  The  first 
parameter  is  the  row  number,  the  second  parameter  is  the 
column  number.  If  both  parameters  are  omitted,  the 
semi-colon  may  be  omitted  as  well. 

CHT  -  Cursor  Horizontal  Tab 
<ESC>  [  Pn  I 

Moves  the  cursor  to  the  next  field. 

ED  -  Erase  Display 
<ESC>  [  Ps  J 

Erases  the  screen  according  to  the  parameter: 

0  -  Erase  from  the  cursor  to  the  end  of  the  screen 

1  -  Erase  from  the  beginning  of  the  screen  to  the 

cursor 

2  -  Erase  the  entire  screen 

The  cursor  is  not  moved.  Only  unprotected  fields  of  the 
screen  are  erased. 

EL  -  Erase  Line 

<ESC>  [  Ps  K 

Erases  the  current  line  according  to  the  parameter: 

0  -  Erase  from  the  cursor  to  the  end  of  the  line 

1  -  Erase  from  the  beginning  of  the  line  to  the  cursor 

2  -  Erase  the  entire  line 

The  cursor  is  not  moved.  Only  unprotected  fields  of  the 
screen  are  erased. 

IL  -  Insert  Line 
<ESC>  [  Pn  L 

Makes  room  for  Pn  line(s)  in  each  unprotected  field  on  the 
line  by  shifting  down  the  rest  of  the  field  Pn  line(s) 
([width  *  Pn]  number  of  characters).  Characters  shifted 
past  the  end  of  the  field  are  lost.  The  cursor  is  not 
moved . 

DL  -  Delete  Line 
<ESC>  [  Pn  M 

De''etes  Pn  line(s)  in  each  unprotected  field  by  moving  the 
rest  of  the  field  up  one  line  ([Pn  *  width]  number  of 
characters) . 
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EF  -  Erase  Field 
<ESC>  [  Ps  N 

Erases  the  current  field  according  to  the  parameter: 

0  -  Erase  from  the  cursor  to  the  end  of  the  field 

1  -  Erase  from  the  beginning  of  the  field  to  the  cursor 

2  -  Erase  the  entire  field 
The  cursor  is  not  moved. 

DCH  -  Delete  Character 
<ESC>  [  Pn  P 

Deletes  the  current  character  by  shifting  the  rest  of  the 
field  one  character  position  to  the  left. 

CPR  -  Cursor  Position  Report 
<ESC>  [  Pn  ;  Pn  R 

Along  with  the  APC  command  this  is  returned  at  the  beginning 
of  each  buffer  obtained  through  reading  data  from  the  VT. 
The  first  parameter  is  the  current  row,  the  second 
parameter  is  the  current  column. 

NP  -  Next  Page 

<ESC>  [  Pn  U 
Same  as  FF. 

PP  -  Previous  Page 
<ESC>  [  Pn  V 
Same  as  FF. 

ECH  -  Erase  Character 
<ESC>  t  Pn  X 

Erases  the  current  character  (the  character  is  NOT  deleted) . 
The  cursor  is  not  moved.  Only  a  single  field  is  affected. 

CBT  -  Cursor  Backward  Tab 
<ESC>  [  Pn  Z 

Moves  the  cursor  to  the  previous  field. 

HPA  -  Horizontal  Position  Absolute 
<ESC>  [  Pn 

Moves  the  cursor  to  the  specified  column  in  the  current 
line. 

HFR  -  Horizontal  Position  Relative 
<ESC>  [  Pn  a 
Same  as  CUF. 

VPA  -  Vertical  Position  Absolute 
<ESC>  [  Pn  d 

Moves  the  cursor  to  the  specified  line  in  the  current 
column. 

VPR  -  Vertical  Position  Relative 
<ESC>  [  Pn  e 
Same  as  CUD. 


3-5 


UM  620344300 
30  September  1990 


HVP  -  Horizontal  and  Vertical  Position 
<ESC>  [  Pn  ;  Pn  f 
Same  as  CUP. 

SM  -  Set  Mode 

<ESC>  [  Ps  h  (standard  modes) 

Sets  the  indicated  modes.  Only  Insert  mode  (IRM)  is 
currently  supported. 

MC  -  Media  Copy 
<ESC>  [Ps  i 

Controls  the  transfer  of  data  between  the  device  and  an 
auxiliary  input/output  device: 

0  -  Print  Screen 

RM  -  Reset  Mode 

<ESC>  [  Ps  1  (standard  modes) 

Resets  the  indicated  mode. 

WP  -  Window  Precedence 
<ESC>  [  Pn  ...  p 

Sets  the  precedence  of  the  specified  windows.  Each  window  is 
in  turn  placed  on  top  of  all  other  existing  windows.  Thus,  the 
last  window  specified  will  ultimately  be  the  top-most  and  all 
specified  windows  will  be  on  top  of  any  unspecified  windows. 

RW  -  Remove  Window 
<ESC>  [  Pn  r 

Removes  the  specified  window.  If  the  window  id  is  omitted,  the 
currently  selected  window  is  used. 

SW  -  Select  Window 
<ESC>  [  Pn  s 

Selects  the  specified  window. 

EW  -  Erase  Window 
<ESC>  [  Pn  u 

Removes  all  windows  and  fields  from  the  specified  window.  If 
the  window  id  is  omitted,  the  currently  selected  window  is 
used.  If  window  0  is  specified  by  Pn  or  if  no  window  is 

specified,  then  the  currently  selected  window  is  erased. 

DW  -  Define  Window 

<ESC>  [  Pn  ;  Pn  ;  Pn  ;  Pn  ;  Pn  ;  Pn  ;  Pn  ;  Pn  ;  Pn  ;  Ps  w 
Defines  a  window  within  the  currently  selected  window.  The 
first  parameter  is  the  window  id,  the  second  and  third 
parameters  are  the  row  and  column  within  the  selected  window 
for  this  window  to  be  displayed,  the  fourth  and  fifth 
parameters  are  the  display  width  and  depth,  the  sixth  and 
seventh  parameters  are  the  offsets  of  the  first  displayed  row 
and  column  from  the  actual  first  row  and  column,  the  eighth  and 
ninth  parameters  are  the  actual  width  and  depth,  and  the  tenth 
parameter  is  the  window  attributes.  The  attributes  are: 

0  -  Normal  (reset  existing  attributes) 

1  -  Bright  or  Bold 

2  -  Dim 
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4  -  Underlined 

5  -  Slow  Blink  (less  than  150  per  minute) 

6  -  Fast  Blink 

7  -  Reverse 

8  -  Concealed  (not  displayed) 

30  -  Black  Display 

31  -  Red  Display 

32  -  Green  Display 

33  -  Yellow  Display 

34  -  Blue  Display 

35  -  Magenta  Display 

36  -  Cyan  Display 

37  -  White  Display 

40  -  Black  Background 

41  -  Red  Background 

42  -  Green  Background 

43  -  Yellow  Background 

44  -  Blue  Background 

45  -  Magenta  Background 

46  -  Cyan  Background 

47  -  White  Background 

The  specified  attributes  are  in  effect  from  the  cursor 
position  to  the  end  of  the  current  line,  whichever  comes 
first.  Note  that  the  specified  attributes  are  IN  ADDITION 
to  the  currently  existing  attributes  unless  Normal  is 
specified. 

DF  -  Define  Field 

<ESC>  [  Pn  ;  Pn  ;  Pn  ;  Pn  ;  Ps  ;  Ps  ;  X 
Defines  a  field  within  the  currently  selected  window.  The 
first  and  second  parameters  are  the  row  and  column  within 
the  selected  window  for  the  field  to  be  displayed,  the 
third  and  fourth  parameters  are  the  field  width  and  depth, 
the  fifth  parameter  is  the  "guarded”  flag  which  is  1  if  the 
field  is  guarded  and  0  or  omitted  if  the  field  is 
enterable,  and  the  sixth  parameter  is  the  field  attributes 
as  per  Define  Window.  The  data  to  be  displayed  in  the 
field  must  immediately  follow  the  Define  Field  command  in 
the  same  buffer  (see  PUTVTI,  below) . 

3 . 3  Input-Output  Routines 

Four  routines  are  provided  for  direct  Virtual  Terminal 
input  and  output.  The  calling  sequences  and  parameter 
definitions  follow. 

INITVT 


CALL  "INITVT"  USING  RCODE. 
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Outputs 

RCODE  -  character  -  Return  code. 

Possible  return  codes: 

OK  -  good  return 
INVTIMD  -  already  in  VTI  mode 
probable  cause:  application  has 
already  called  INITVT  or 
application  did  not  call  TERMVT. 
solution:  none  needed. 

This  routine  performs  all  necessary  initialization  in 
preparation  for  using  the  Virtual  Terminal.  Specifically,  it 
initiates  Form  Processor  Bypass  mode  wherein  the  Form  Processor 
no  longer  interprets  Virtual  Terminal  messages  but  simply 
passes  them  back  to  the  application. 

GETVTI 

CALL  "GETVTI"  USING  BUFFER,  MAX-LEN,  ACT-LEN,  RCODE. 

Inputs 

MAX-LEN  -  PIC  S9(5)  COMP  -  maximum  length  to  read. 

Outputs 

PIC  X(N)  -  data  read  from  terminal. 

PIC  S9(5)  COMP  -  length  of  data  read, 
character  -  return  code. 

Possible  return  codes: 

OK  -  good  return. 

NINVTIMD  -  not  in  VTI  mode, 
probable  cause:  application 
did  not  call  INITVT  or 
application  already  called 
TERMVT. 

solution:  application  must 
call  INITVT  before  GETVTI. 

OVRFLW  -  length  of  data  buffer 
larger  than  maximum  length 
given  in  GETVTI  call, 
probable  cause:  application 
did  not  provide  large  enough 
buffer  for  data, 
solution:  application  provide 
a  larger  buffer  and  recall 
GETVTI . 

This  routine  performs  a  read  from  the  Virtual  Terminal. 

In  Forms  Mode,  the  returned  buffer  consists  of  a  Set  Window 
command  followed  by  Define  Field  commands  for  each  field  in  the 
window  which  has  been  modified  since  the  last  read.  This  is 
followed  by  additional  Set  Widow  and  Define  Field  commands  for 
nested  windows.  Finally/  a  Cursor  Position  Report  command 
giving  the  cursor  position  when  the  terminating  function  key 
was  pressed  and  an  Application  Program  Command  command 
specifying  which  function  key  was  pressed  terminate  the  buffer. 


BUFFER  - 
ACT-LEN  - 
RCODE 
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If  not  in  Forms  Mode,  the  returned  buffer  consists  of  all 
the  printable  characters  entered  followed  (if  in  Control 
Transfer  Mode)  by  the  control  sequence  which  terminated  the 
input . 

If  an  inquiry  (e.g.  DSR)  was  performed  prior  to  reading, 
the  returned  buffer  contains  only  the  reply  regardless  of  Forms 
Mode  and  Control  Transfer  Mode. 

PUTVTI 

CALL  "PUTVTI"  USING  BUFFER,  ACT-LEN,  RCODE. 

Inputs 

BUFFER  -  PIC  X(n)  -  Data  to  be  written. 

ACT-LEN  -  PIC  S9(5)  COMP  -  Length  of  data  to  write. 

Outputs 

RCODE  -  character  -  Return  code 

Possible  return  codes: 

OK  -  good  return. 

NINVTIMD  -  not  in  VTI  mode. 

probable  cause:  application  did 
not  call  VTI  or  application  has 
already  called  TERMVT. 
solution:  application  must  call 
INITVT  before  PUTVTI. 

This  routine  performs  a  write  to  the  Virtual  Terminal. 

This  routine  may  be  called  multiple  times  to  send  multiple 
buffers  of  commands  to  the  Virtual  Terminal.  In  any  case,  the 
final  buffer  must  end  with  a  Record  Separator  command  in  order 
to  process  the  preceding  commands.  See  above  for  restrictions 
on  the  commands  which  may  be  contained  in  BUFFER. 

TERMVT 

CALL  "TERMVT"  USING  RCODE. 

Outputs 

RCODE  -  character  -  Return  code. 

Possible  return  codes 
OK  -  good  return. 

NINVTIMD  -  not  in  VTI  mode. 

probable  cause:  application  did  not 
call  VTI  or  application  has  already 
called  TERMVT. 
solution:  none  needed. 

This  routine  terminates  the  Virtual  Terminal.  It 
terminates  Form  Processor  Bypass  mode,  causing  the  Form 
Processor  to  once  again  interpret  Virtual  Terminal  messages  and 
refreshes  the  screen  to  eliminate  any  disruption  caused  by  the 
Virtual  Terminal  output. 
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SECTION  4 

TERMINAL  IMPLEMENTATION 


4 . 1  Adding  New  Terminals 

The  translation  from  Virtual  Terminal  commands  to  commands 
for  a  specific  terminal  (and  vice  versa)  is  performed  by  a 
program  known  as  a  device  driver.  Adding  a  new  terminal  is 
accomplished  simply  by  writing  a  device  driver  for  the  terminal 
and  making  it  known  to  the  system.  Since  all  device  drivers 
perform  the  same  basic  functions,  most  of  the  necessary 
routines  are  already  written,  and  only  a  few  will  need  ;:o  be 
written  for  a  particular  terminal.  (Since  the  currently 
existing  device  drivers  are  written  in  the  C  programming 
language,  a  large  number  of  utility  and  support  functions  exist 
for  device  drivers  written  in  C.  For  this  reason,  this 
discussion  will  focus  on  device  drivers  which  are  being  written 
in  C;  this  should  not  be  interpreted  as  meaning  that  device 
drivers  could  not  be  written  in  another  language,  only  that 
doing  so  would  be  significantly  more  work.) 

Two  different  types  of  device  drivers  will  be  discussed. 
First,  we  will  consider  a  general  purpose  device  driver  which 
can  support  any  type  of  terminal.  Second,  we  will  consider  the 
special  case  of  a  terminal  which  does  not  support  forms  and 
does  not  perform  local  echoing  (or  allows  local  echoing  to  be 
disabled) .  It  should  be  noted  that  all  of  the  currently 
supported  terminals  fall  into  this  category. 


4 . 2  General  Purpose  Device  Driver 

A  general  purpose  device  driver  must  contain  four  routines: 
INTVT,  GETVT,  PUTVT,  and  TRMVT. 

GETVT  and  PUTVT  (which  have  already  been  discussed) 
accept  Virtual  Terminal  commands  and  translate  them  into 
commands  for  a  particular  device  and  vice  versa.  All  Virtual 
Terminal  commands  must  be  supported,  even  if  this  requires 
simulation  in  software.  (It  should  be  noted,  however,  that  it 
is  not  necessary  to  allow  all  Virtual  Terminal  commands  to  be 
entered  by  the  user.  It  is  up  to  the  implementor  to  determine 
a  reasonable  subset  to  be  supported,  but  the  subset  should  at 
least  include  the  cursor  movements,  forward  and  backward  tab, 

20  function  keys  including  the  enter  key,  screen  refresh,  and 
delete  character.) 

The  only  allowable  exceptions  to  this  are  the  Bell  and 
Media  Copy,  and  Define  Window  and  Define  Field.  The  Bell  and 
Media  Copy  commands  must  be  recognized  correctly,  but  need  not 
produce  any  effect  if  the  terminal  does  not  have  an  audible 
alarm  or  printer.  Visual  attributes  should  be  simulated  as 
well  as  possible;  some  guidelines  follow. 
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If  the  terminal  only  has  two  brightness  levels,  BOLD  should 
be  supported  with  DIM  being  the  same  as  NORMAL;  if  only  a 
single  brightness  level  exists,  BOLD,  DIM,  and  NORMAL  should 
all  be  the  same.  If  the  terminal  has  only  a  single  blink 
speed,  it  should  be  used  for  both  FAST  BLINK  and  SLOW  BLINK; 
if  blink  is  not  supported,  FAST  BLINK  and  SLOW  BLINK  may  be 
ignored.  If  only  a  single  highlight  is  supported  (e.g.  reverse 
video,  underline,  etc.),  it  should  be  used  for  both  REVERSE  and 
UNDERSCORE;  if  no  highlights  are  supported,  both  REVERSE  and 
UNDERSCORE  should  be  simulated  by  a  software  underscore  (blanks 
in  the  field  are  replaced  by  underscores) .  CONCEALED  may  be 
simulated  by  blanking  the  field  on  the  screen  as  necessary. 

The  Window  Manager  portion  of  the  Device  Driver  processes 
the  Set  Transmit  State,  Window  Precedence,  Define  Window, 

Remove  Window,  Select  Window,  Erase  Window,  and  Define  Field 
commands.  It  is  intended  to  be  portable  and  used  in  all  Device 
Drivers  without  change.  Thus,  these  commands  do  not  need  to  be 
supported  by  new  Device  Drivers.  (If,  however,  the  terminal 
in  question  supports  windowing,  it  may  be  desirable  to 
implement  these  commands  as  part  of  the  device-specific  part  of 
the  driver.) 

INTVT  and  TRMVT  (which  have  also  been  discussed 
previously)  are  called  once  at  startup  and  termination 
respectively  to  initialize  the  device  driver  and  perform 
cleanup.  The  initialization  usually  consists  of  opening  a 
communication  channel  to  the  terminal  and  calling  PUTVTI  with  a 
Reset  to  Initial  State  command  to  reset  the  terminal.  The 
cleanup  usually  consists  of  sending  commands  to  the  terminal  to 
return  it  to  the  normal  state  of  terminals  on  the  system  (such 
as  setting  normal  modes  or  tab  stops)  and  clear  the  screen,  and 
closing  the  communication  channel  to  the  terminal. 

4 . 3  Special  Case  Device  Driver 

If  a  terminal  supports  forms,  writing  a  general  purpose 
device  driver  for  it  should  not  be  very  difficult.  However,  a 
terminal  which  does  not  support  forms  requires  most  functions 
to  be  simulated  in  software,  requiring  a  very  complex  device 
driver.  Since  all  of  the  terminals  which  are  currently 
supported  fall  into  this  category,  routines  exist  which  make 
writing  a  device  driver  for  this  type  of  terminal  much  easier. 
(However,  it  should  be  noted  that  supporting  this  type  of 
terminal  requires  being  able  to  perform  character  at  a  time  I/O 
without  echo.  This  is  not  possible  on  some  computer  systems, 
making  support  impossible.)  These  support  routines  are 
documented  in  Appendix  C;  many  unsubstantiated  references  to 
them  will  be  made  in  the  following  text. 

Supporting  a  new  terminal  of  this  type  requires  writing  six 
routines:  TRMINI,  TRMCHK,  TRMGET,  TRMPUT,  TRMFLS,  and  TRMEND. 

TRMINI  is  called  once  to  establish  communication  w?th  the 
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terminal.  This  is  usually  done  with  a  call  to  TBOPEN.  The 
calling  sequence  for  TRMINI  is: 

trmini (tname) 

TNAME  is  the  terminal  name  passed  in  to  INITVT  converted  to 
a  C  string. 

TRMCHK  is  called  to  check  for  terminal  input  that  must  be 
processed.  The  calling  sequence  for  TRMCHK  is: 

trmchk ( ) 

It  returns  TRUE  or  FALSE  depending  on  whether  there  are 
keyboard  characters  to  be  processed  or  not. 

TRMGET  and  TRMPUT  are  called  to  get  commands  from  and  put 
commands  to  the  terminal.  TRMGET  usually  calls  TRMPUT  as  well 
in  order  to  echo  the  user  input.  The  calling  sequences  for 
TRMGET  and  TRMPUT  are: 

trmget (cmd) 

trmput  (cnid) 

CMD  is  a  command  in  internal  form. 

TRMFLS  is  called  to  insure  that  all  output  has  been 
displayed  (any  buffers  should  be  flushed) .  The  calling 
sequence  for  TRMFLS  is: 

trmfls ( ) 

TRMEND  is  called  once  to  terminate  communications  with  the 
terminal.  The  calling  sequence  for  TRNEND  is: 

trmend ( ) 
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APPENDIX  A 

VIRTUAL  TERMINAL  CHARACTER  SET 


ASCII  EBCDIC  ASCII  EBCDIC 


Char 

Hex 

Oct 

Dec 

Hex 

Oct 

Dec 

Char 

Hex 

Oct 

Dec 

Hex 

Oct 

Dec 

<NUL> 

00 

000 

0 

00 

000 

0 

<SP> 

20 

040 

32 

40 

100 

64 

<SOH> 

01 

001 

1 

01 

001 

1 

1 

21 

041 

33 

4F 

117 

79 

<STX> 

02 

002 

2 

02 

002 

2 

II 

22 

042 

34 

7F 

177 

127 

<ETX> 

03 

003 

3 

03 

003 

3 

# 

23 

043 

35 

7B 

173 

123 

<EOT> 

04 

004 

4 

37 

067 

55 

$ 

24 

044 

36 

5B 

133 

91 

<ENQ> 

05 

005 

5 

2D 

055 

45 

% 

25 

045 

37 

6C 

154 

108 

<ACK> 

06 

006 

6 

2E 

056 

46 

& 

26 

046 

38 

50 

120 

80 

<BEL> 

07 

007 

7 

2F 

057 

47 

1 

27 

047 

39 

7D 

175 

125 

<BS> 

08 

010 

8 

16 

026 

22 

( 

28 

050 

40 

4D 

115 

77 

<HT> 

09 

Oil 

9 

05 

005 

5 

) 

29 

051 

41 

5D 

135 

93 

<LF> 

OA 

012 

10 

25 

045 

37 

•k 

2A 

052 

42 

5C 

134 

92 

<VT> 

OB 

013 

11 

OB 

013 

11 

+ 

2B 

053 

43 

4E 

116 

78 

<FF> 

OC 

014 

12 

OC 

014 

12 

9 

2C 

054 

44 

6B 

153 

137 

<CR> 

OD 

015 

13 

OD 

015 

13 

2D 

055 

45 

60 

140 

96 

<SO> 

OE 

016 

14 

OE 

016 

14 

* 

2E 

056 

46 

4B 

113 

75 

<SI> 

OF 

017 

15 

OF 

017 

15 

/ 

2F 

057 

47 

61 

141 

97 

<DLE> 

10 

020 

16 

10 

020 

16 

0 

30 

060 

48 

FO 

360 

240 

<DC1> 

11 

021 

17 

11 

021 

17 

1 

31 

061 

49 

FI 

361 

241 

<DC2> 

12 

022 

18 

12 

022 

18 

2 

32 

062 

50 

F2 

362 

242 

<DC3> 

13 

023 

19 

13 

023 

19 

3 

33 

063 

51 

F3 

363 

243 

<DC4> 

14 

024 

20 

3C 

074 

60 

4 

34 

064 

52 

F4 

364 

244 

<NAK> 

15 

025 

21 

3D 

075 

61 

5 

35 

065 

53 

F5 

365 

245 

<SYN> 

16 

026 

22 

32 

062 

50 

6 

36 

066 

54 

F6 

366 

246 

<ETB> 

17 

027 

23 

26 

046 

38 

7 

37 

067 

5b 

F7 

367 

247 

<CAN> 

18 

030 

24 

18 

030 

24 

8 

38 

070 

56 

F8 

370 

248 

<EM> 

19 

031 

25 

19 

031 

25 

9 

39 

071 

57 

F9 

371 

249 

<SUB> 

lA 

032 

26 

3F 

077 

63 

: 

3A 

072 

58 

7A 

172 

122 

<ESC> 

IB 

033 

27 

27 

047 

39 

9 

3B 

073 

59 

5E 

136 

94 

<FS> 

1C 

034 

28 

1C 

034 

28 

< 

3C 

074 

60 

4C 

114 

76 

<GS> 

ID 

035 

29 

ID 

035 

29 

= 

3D 

075 

61 

7E 

176 

126 

<RS> 

IE 

036 

30 

IE 

036 

30 

> 

3E 

076 

62 

6E 

156 

110 

<US> 

IF 

037 

31 

IF 

037 

31 

7 

3F 

077 

63 

6F 

157 

111 
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Char 

ASCII 
Hex  Oct 

Dec 

EBCDIC 
Hex  Oct 

Dec 

Char 

ASCII 
Hex  Oct 

Dec 

EBCDIC 
Hex  Oct 

Dec 

@ 

40 

100 

64 

7C 

174 

124 

60 

140 

96 

79 

171 

121 

A 

41 

101 

65 

Cl 

301 

193 

a 

61 

141 

97 

81 

201 

129 

B 

42 

102 

66 

C2 

302 

194 

b 

62 

142 

98 

82 

202 

130 

C 

43 

103 

67 

C3 

303 

195 

c 

63 

143 

99 

83 

203 

131 

D 

44 

104 

68 

C4 

304 

196 

a 

64 

144 

100 

84 

204 

132 

E 

45 

105 

69 

C5 

305 

197 

5 

65 

145 

101 

85 

205 

133 

F 

46 

106 

70 

C6 

306 

198 

f 

66 

146 

102 

86 

206 

134 

G 

47 

107 

71 

C7 

307 

199 

? 

67 

147 

103 

87 

207 

135 

H 

48 

110 

72 

C8 

310 

200 

tl 

68 

150 

104 

88 

210 

136 

I 

49 

111 

73 

C9 

311 

201 

i 

69 

151 

105 

89 

211 

137 

J 

4A 

112 

74 

D1 

321 

209 

j 

6A 

152 

106 

91 

221 

145 

K 

4B 

113 

75 

D2 

322 

210 

6B 

153 

107 

92 

222 

146 

L 

4C 

114 

76 

D3 

323 

211 

L 

6C 

154 

108 

93 

223 

147 

M 

4D 

115 

77 

D4 

324 

212 

m 

6D 

155 

109 

94 

224 

148 

N 

4E 

116 

78 

D5 

325 

213 

n 

6E 

156 

110 

95 

225 

149 

0 

4F 

117 

79 

D6 

326 

214 

D 

6F 

157 

111 

96 

226 

150 

P 

50 

120 

80 

D7 

327 

215 

1 

0 

70 

160 

112 

97 

227 

151 

Q 

51 

121 

81 

D8 

330 

216 

< 

3 

71 

161 

113 

98 

230 

152 

R 

52 

122 

82 

D9 

331 

217 

r 

72 

162 

114 

99 

231 

153 

S 

53 

123 

83 

E2 

342 

226 

j 

s 

73 

163 

115 

A2 

242 

162 

T 

54 

124 

84 

E3 

343 

227 

t 

74 

164 

116 

A3 

243 

163 

U 

55 

125 

85 

E4 

344 

228 

u 

75 

165 

117 

A4 

244 

164 

V 

56 

126 

86 

E5 

345 

229 

V 

76 

166 

118 

A5 

245 

165 

W 

57 

127 

87 

E6 

346 

230 

w 

77 

167 

119 

A6 

246 

166 

X 

58 

130 

88 

E7 

347 

231 

X 

78 

170 

120 

A7 

247 

167 

Y 

59 

131 

89 

E8 

350 

232 

y 

79 

171 

121 

A8 

250 

168 

Z 

5A 

132 

90 

E9 

351 

233 

z 

7A 

172 

122 

A9 

251 

169 

C 

5B 

133 

91 

4A 

212 

74 

7B 

173 

123 

CO 

300 

192 

\ 

5C 

134 

92 

EO 

340 

224 

7C 

174 

124 

6A 

152 

106 

] 

5D 

135 

93 

5A 

132 

90 

. 

; 

7D 

175 

125 

DO 

320 

208 

5E 

136 

94 

5F 

137 

95 

7E 

176 

126 

A1 

241 

161 

5F 

137 

95 

6D 

155 

109 

<DEL> 

7F 

177 

127 

07 

007 

7 
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APPENDIX  B 
COMMAND  REFERENCE 


For  each  function  the  key  sequence,  internal  function 
identifier,  command  abbreviation,  and  command  description  are 
given.  Tables  of  selective  parameters  follow  the  function 
definitions. 

Function  Definitions 

Control  Characters 


Ctrl-G 

0007 

BEL 

Sound  Bell 

Ctrl-H 

0008 

BS 

Backspace 

Ctrl-I 

0009 

HT 

Forward  Tab 

Ctrl-J 

0010 

LF 

Line  Feed  /  New  Line 

Ctrl-L 

0012 

FF 

Form  Feed 

Ctrl-M 

0013 

CR 

Carriage  Return 

Ctrl-[ 

ESC 

Character  Set  Extension  (see  following) 

Ctrl-' 

0030 

RS 

Record  Separator 

<ESC>D 

1004 

IND 

Index 

<ESC>E 

1005 

NEL 

Next  Line 

<ESC>M 

1013 

RI 

Reverse  Index 

<ESC>S 

1019 

STS 

Set  Transmit  State 

<ESC>[ 

CSI 

Control  Sequence  Introducer  (see  following) 

<ESC>\ 

1028 

ST 

String  Terminator 

<ESC> 

1031 

APC 

Application  Program  Command  (function  keys) 

<ESC>C 

1035 

RIS 

Reset  to  Initial  State 

<ESC>? 

4000 

REF 

Refresh  Screen  (private) 

Control 

Sequences 

(<CSI>  ...) 

Pn  @ 

3000 

ICH 

Insert  Character 

Pn  A 

3001 

CUU 

Cursor  Up 

Pn  B 

3002 

CUD 

Cursor  Down 

Pn  C 

3003 

CUF 

Cursor  Forward 

Pn  D 

3004 

CUB 

Cursor  Backward 

Pn  E 

3005 

CNL 

Cursor  Next  Line 

Pn  F 

3006 

CPL 

Cursor  Preceding  Line 

Pn;Pn  H 

3008 

CUP 

Cursor  Position 

Pn  I 

3009 

CRT 

Cursor  horizontal  Tab 

Ps  J 

3010 

ED 

Erase  Display 

Ps  K 

3011 

EL 

Erase  Line 

Pn  L 

3012 

IL 

Insert  Line 

Pn  M 

3013 

DL 

Delete  Line 

Ps  N 

3014 

EF 

Erase  Field 

Pn  P 

3016 

DCH 

Delete  Character 

Pn;Pn  R 

3018 

CPR 

Cursor  Position  Report 

Pn  U 

3021 

NP 

Next  Page 

Pn  V 

3022 

PP 

Preceding  Page 

Pn  X 

3024 

ECH 

Erase  Character 

Pn  Z 

3026 

CBT 

Cursor  Backward  Tab 

Pn  • 

3032 

HPA 

Rorizontal  Position  Absolute 

Pn  a 

3033 

RPR 

Rorizontal  Position  Relative 
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Pn 

d 

3036 

VPA 

Vertical  Position  Absolute 

Pn 

e 

3037 

VPR 

Vertical  Position  Relative 

Pn 

;Pn  f 

3038 

HVP 

Horizontal  and  Vertical  Position 

Ps 

h 

3040 

SM 

Set  Mode 

Ps 

i 

3041 

MC 

Media  Copy 

Ps 

1 

3044 

RM 

Reset  Mode 

Pn 

...  p 

3047 

WP 

Window  Precedence 

Pn 

r 

3049 

RW 

Remove  Window 

Pn 

s 

3050 

SW 

Set  Window 

Pn 

u 

3052 

EW 

Erase  Window 

Pn 

w 

3054 

DW 

Define  Window 

Pn 

X 

3055 

DF 

Define  Field 

Characters  to  be  sent  to  terminal  without  interpretation. 
Application  Program  Commands  (<APC>  ...  <ST>) 

Decimal  representation  of  function  key  number. 

Selective  Parameter  Tables 
Erase  Parameters 

0  -  Current  Position  to  End  of  Area  (inclusive) 

1  -  Beginning  of  Area  to  Current  Position  (inclusive) 

2  -  Entire  Area 

Media  Copy  Parameters 
0  -  Print  Screen 
Attribute  Parameters 

0  -  Default 

1  -  Bright 

2  -  Dim 

4  -  Underscore 

5  -  Slow  Blink 

6  -  Fast  Blink 

7  -  Reverse 

8  -  Concealed 

30  -  Black  Display 

31  -  Red  Display 

32  -  Green  Display 

33  -  Yellow  Display 

34  -  Blue  Display 

35  -  Magenta  Display 

36  -  Cyan  Display 

37  -  White  Display 

40  -  Black  Background 

41  -  Red  Background 

42  -  Green  Background 

43  -  Yellow  Background 

44  -  Blue  Background 

45  -  Magenta  Background 

46  -  Cyan  Background 

47  -  White  Background 
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Device  Status  Request  Parameters 
6  -  Report  Current  Position  (via  CPR) 
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APPENDIX  C 

DEVICE  DRIVER  SUPPORT  ROUTINES 


BITS.H 
/*  NAME 

*  bits.h  -  include  file  for  bit  manipulation  routines 

*  Written:  25-MAY-1983  09:47:12  -  SCJONES 

*  Revised:  7-AUG-1985  11:19:09  -  JONES 

*/ 

/*  NAME 

*  tbit  -  Test  BIT  (macro) 

* 

*  SYNOPSIS 

*  #include  <bits.h> 

* 

*  bool  tbit(bits,  nbits,  bit) 

*  BITTYP  bits[ ] ; 

*  int  nbits,  bit; 

* 

*  DESCRIPTION 

*  tbit  returns  TRUE  or  FALSE  depending  on  whether  bit  bit  is 

*  set  or  cleared  in  bits,  nbits  is  the  number  of  bits  in 

*  bits. 

*/ 

/*  NAME 

*  sbit  -  Set  BIT  (macro) 

* 

*  SYNOPSIS 

*  #include  <bits.h> 

* 

*  void  sbit (bits,  nbits,  bit) 

*  BITTYP  bits[]; 

*  int  nbits,  bit; 

* 

*  DESCRIPTION 

*  sets  bit  <bit>  in  the  bit  string  <bits>.  <nbits>  is  the 

*  length  of  <bits>. 

*/ 

/*  NAME 

*  cbit  -  Clear  BIT  (macro) 

* 

*  SYNOPSIS 

*  #include  <bits.h> 

* 

*  void  cbit(bits,  nbits,  bit) 

*  BITTYP  bits[ ] ; 

*  int  nbits,  bit; 

* 
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*  DESCRIPTION 

*  Clears  bit  <bit>  in  the  bit  string  <bits>.  <nbits>  is  the 

*  length  of  <bits>. 

*/ 

/*  NAME 

*  sabit  -  Set  All  BITs  (macro) 

* 

*  SYNOPSIS 

*  # include  <bits.h> 

* 

*  void  sabit (bits,  nbits) 

*  BITTYP  bits [ ] ; 

*  int  nbits ; 

* 

*  DESCRIPTION 

*  sets  the  bit  string  <bits>.  <nbits>  is  the  length  of 

*  <bits>. 

*/ 

/*  NAME 

*  cabit  -  Clear  All  BITs  (macro) 

* 

*  SYNOPSIS 

*  # include  <bits.h> 

* 

*  void  cabit (bits,  nbits) 

*  BITTYP  bits[]; 

*  int  nbits; 

* 

*  DESCRIPTION 

*  Clears  the  bit  string  <bits>.  <nbits>  is  the  length  of 

*  <bits>. 

*/ 


DOS CRN. C 
/*  NAME 

*  DOSCRN  -  DO  command  to  internal  SCReeN 

*  Written;  20-DEC-1984  12:45:14  -  SCWEHRMAN 

*  Revised:  2-APR-1986  09:13:25  -  WEHRMAN 

* 

*  SYNOPSIS 

*  int  doscrn(cmd) 

*  struct  command  *cmd; 

* 

*  DESCRIPTION 

*  Executes  cmd  on  the  internal  screen  and  fixes  up  its 

*  parameters.  Returns  -1  for  errors,  0  for  no  action,  1  for 

*  normal  command,  and  2  for  move  the  cursor  and  retry. 

*/ 

/*  NAME 

*  hscr  -  Horizontal  SCRoll 
*/ 
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/*  NAME 

*  vscr  -  Vertical  SCRoll 
*/ 

/*  NAME 

*  erase  -  ERASE  part  of  screen 
*/ 


FFBCA.C 
/*  NAME 

*  ffbca  -  Find  First  Bit  Clear  After 

*  Written:  ll-AUG-1983  11:56:12 

*  Revised:  12-NOV-1984  14:15:25  -  SCJONES 

* 

*  SYNOPSIS 

*  # include  <bits.h> 

* 

*  int  f fbca (bitstr ,  nbits,  after) 

*  BITTYP  bitstr[]; 

*  int  nbits,  after; 

* 

*  DESCRIPTION 

*  ffbca  returns  the  number  of  the  first  clear  bit  following 

*  bit  after  in  the  bit  string  bitstr.  If  after  is  <  0,  the 

*  number  of  the  first  clear  bit  is  returned,  nbits  is  the 

*  number  of  bits  in  bitstr.  If  all  remaining  bits  are  set, 

*  -1  is  returned  (A  VAX  RTL  routine  is  called  if  the  symbol 

*  vms  is  defined) . 

*/ 


FFBCB.C 
/*  NAME 

*  ffbcb  -  Find  First  Bit  Clear  Before 

*  Written:  ll-AUG-1983  11:57:42 

*  Revised:  12-NOV-1984  14:17:42  -  SCJONES 

* 

*  SYNOPSIS 

*  # include  <bits.h> 

* 

*  int  ffbcb (bitstr,  nbits,  before) 

*  BITTYP  bitstr []; 

*  int  nbits,  before; 

* 

*  DESCRIPTION 

*  ffbcb  returns  the  number  of  the  first  clear  bit  before  bit 

*  before  going  backwards  in  the  bit  string  bitstr.  If 

*  before  is  <  0,  the  number  of  the  first  clear  bit  from  the 

*  end  of  the  string  is  returned,  nbits  is  the  number  of 

*  bits  in  bitstr.  If  all  remaining  bits  are  clear,  -1  is 

*  returned . 

*/ 
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FFBD.C 
/*  NAME 

*  ffbd  -  Find  First  Bit  Different 

*  Written:  ll-AUG-lSSS  12:02:55 

*  Revised;  12-NOV-1984  14:20:37  -  SCJONES 

* 

* 

* 

* 

* 

* 

* 

* 

*  DESCRIPTION 

*  ffbd  returns  the  number  of  the  first  bit  which  is 

*  different  in  the  bit  strings  bitstrl  and  bitstr2.  nbits 

*  is  the  number  of  bits  in  the  strings.  If  all  remaining 

*  bits  are  the  same,  -1  is  returned. 

*/ 


SYNOPSIS 

# include  <bits.h> 

int  ffbd (bitstrl,  bitstr2,  nbits) 
BITTYP  bitstrl [ ] ,  bitstr2 [ ] ; 
int  nbits; 


FFBDA.C 
/*  NAME 

*  ffbda  -  Find  First  Bit  Different  After 

*  Written:  ll-AUG-1983  12:05:58 

*  Revised;  12-NOV-1984  14:21:58  -  SCJONES 

* 

*  SYNOPSIS 

*  #include  <bits.h> 

* 

*  int  ffbda (bitstrl,  bitstr2,  nbits,  after) 

*  BITTYP  bitstrl[] ,  bitstr2[]; 

*  int  nbits,  after; 

* 


*  DESCRIPTION 

*  ffbda  returns  the  number  of  the  first  bit  following  bit 

*  after  which  is  different  in  the  bit  strings  bitstrl  and 

*  bitstr2.  If  after  is  <  0,  the  number  of  the  first 

*  difference  bit  is  returned,  nbits  is  the  number  of  bits 

*  in  bitstrl  and  bitstr2.  If  all  remaining  bits  are  the 

*  same,  -1  is  returned. 


FFBSA.C 
/*  NAME 

*  ffbsa  -  Find  First  Bit  Set  After 

*  Written:  ll-AUG-1983  12:36:42 

*  Revised;  12-NOV-1984  14:27:28  -  SCJONES 

* 

*  SYNOPSIS 

*  #include  <bits.h> 

* 

*  int  ffbsa (bitstr,  nbits,  after) 

*  BITTYP  bitstrC] ; 

*  int  nbits,  after; 
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* 

*  DESCRIPTION 

*  ffbsa  returns  the  number  of  the  first  set  bit  following 

*  bit  after  in  the  bit  string  bitstr.  If  after  is  <  0,  the 

*  number  of  the  first  set  bit  is  returned,  nbits  is  the 

*  number  of  bits  in  bitstr.  If  all  remaining  bits  are  set, 

*  -1  is  returned  (A  VAX  RTL  routine  is  called  if  the  symbol 

*  vms  is  defined.). 

*/ 


FFBSB.C 
/*  NAME 

*  ffbsb  -  Find  First  Bit  Set  Before 

*  Written:  ll-AUG-1983  12:31:39 

*  Revised:  12-NOV-1984  14:25:44  -  SCJONES 

* 

*  SYNOPSIS 

*  #include  <bits.h> 

* 

*  int  ffbsb(bitstr,  nbits,  before) 

*  BITTYP  bitstr []; 

*  int  nbits,  before; 

* 

*  DESCRIPTION 

*  ffbsb  returns  the  number  of  the  first  set  bit  before  bit 

*  before  going  backwards  in  the  bit  string  bitstr.  If 

*  before  is  <  0,  the  number  of  the  first  set  bit  from  the 

*  end  of  the  string  is  returned,  nbits  is  the  number  of 

*  bits  in  bitstr.  If  all  remaining  bits  are  set,  -1  is 

*  returned . 

*/ 

TERMIO.C 
/*  NAME 

*  termio  -  TERMinal  I/O  package 

*  Written:  ll-MAY-1983  15:54:05  -  JONES 

*  Revised:  7-FEB-1986  11:40:04  -  SDRCTEST 

* 

*  DESCRIPTION 

*  This  package  provides  immediate,  character  at  a  time  i/o 

*  from  a  terminal  (i.e.  does  not  collect  an  edited  line  like 

*  stdio) . 

* 

*  For  details  on  the  supported  functions,  see  the  individual 

*  function  descriptions. 

*/ 

/*  NAME 

*  topen  -  Terminal  OPEN  channel 

* 

*  SYNOPSIS 

*  #include  <termio.h> 

* 

*  TERM  * topen (device) 

*  char  *device; 

* 
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*  DESCRIPTION 

*  topen  opens  the  terminal  specified  by  device  for  terminal 

*  i/o. 

* 

*  device  is  a  pointer  to  a  string  containing  the  device 

*  name . 


*/ 


/*  NAME 

*  tbopen  -  Terminal  Buffered  OPEN  channel 

* 

*  SYNOPSIS 

*  #include  <termio.h> 

* 

*  TERM  *tbopen( device,  bufsiz,  nbuf) 

*  char  *device; 

*  int  bufsiz,  nbuf; 

* 

*  DESCRIPTION 

*  tbopen  opens  the  terminal  specified  by  device  for  buffered 

*  terminal  i/o  (Only  the  output  is  buffered,  not  the  input.) 

*  device  is  a  pointer  to  a  string  containing  the  device  * 

name. 

*  bufsiz  is  the  buffer  size  in  characters. 

*  nbuf  is  the  number  of  buffers  to  allocate. 

* 

*  If  nbuf  (or  bufsiz)  is  zero,  the  terminal  is  opened 

*  unbuffered. 

*/ 


/*  NAME 

*  tgetc  -  Terminal  GET  Character 

* 

*  SYNOPSIS 

*  # include  <termio.h> 

* 

*  int  tgetc (term) 

*  TERM  *term; 

* 

*  DESCRIPTION 

*  tgetc  returns  the  next  character  typed  at  the  specified 

*  terminal  OR  EOF. 

*/ 


/*  NAME 

*  tgetct  -  Terminal  GET  Character  (Transparent) 

* 

*  SYNOPSIS 

*  #include  <termio.h> 

* 

*  int  tgetct (term) 

*  TERM  *term; 

* 
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DESCRIPTION 

tgetct  returns  the  next  character  typed  at  the  specified 
terminal  without  processing  special  control  characters. 
Note  that  characters  already  in  the  type-ahead  buffer  may 
have  been  subject  to  special  processing. 


/*  NAME 

*  tungetc  -  Terminal  UNGET  Character 

* 

*  SYNOPSIS 

*  # include  <termio.h> 


void  tungetc (c,  term) 
char  c; 

TERM  *term; 


* 

* 

* 

* 

*  DESCr-  :PTION 

*  tungetc  returns  the  specified  character  to  the  specified 

*  terminal  so  that  the  next  tgetc  or  tgetct  call  will  return 


*/ 


it.  Only  a  single  push-back  is  allowed. 


/*  NAME 

*  tputc  -  Terminal  PUT  Character 

* 

*  SYNOPSIS 

*  # include  <termio.h> 


int  tputc (c,  term) 
char  c; 

TERM  *term; 


* 

* 

* 

* 

*  DESCRIPTION 

*  tputc  outputs  the  specified  character  to  the  specified 

*  terminal. 

*/ 

/*  NAME 

*  tputct  -  Terminal  PUT  Character  (Transparent) 

* 

*  SYNOPSIS 

*  # include  <termio.h> 


int  tputct (c,  term) 
char  c; 

TERM  *term; 


* 

* 

* 

* 

*  DESCRIPTION 

*  tputct  outputs  the  specified  character  to  the  specified 

*  terminal  without  processing  special  control  characters. 
*/ 
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/*  NAME 

*  tflush  -  Terminal  FLUSH  buffer 

* 

*  SYNOPSIS 

*  # include  <termio.h> 

* 

*  int  tflush (term) 

*  TERM  *term ; 

* 

*  DESCRIPTION 

*  tflush  empties  the  specified  terminal's  output  buffer. 

*/ 

/*  NAME 

*  tflusht  -  Terminal  FLUSH  buffer  (Transparent) 

* 

*  SYNOPSIS 

*  #include  <termio.h> 

* 

*  int  tflusht (term) 

*  TERM  *term; 

* 

*  DESCRIPTION 

*  tflusht  empties  the  specified  terminal's  output  buffer 

*  without  interpreting  special  control  characters. 

*/ 

/*  NAME 

*  tclose  -  Terminal  CLOSE 

* 

*  SYNOPSIS 

*  # include  <termio.h> 

* 

*  int  tclose (term) 

*  TERM  *term; 

* 

*  DESCRIPTION 

*  tclose  closes  the  specified  terminal. 

*/ 

/*  NAME 

*  ttrans  -  Terminal  set  TRANSparent  mode 

* 

*  SYNOPSIS 

*  # include  <termio.h> 

* 

*  int  ttrans (term) 

*  TERM  *term; 

* 

*  DESCRIPTION 

*  ttrans  places  the  terminal  in  transparent  mode.  In  this 

*  mode,  all  special  characters  (ctrl-y,  ctrl-c,  ctrl-s, 

*  ctrl-q,  ctrl-o,  ctrl-r,  and  ctrl-t)  are  treated  as  data 

*  and  returned  by  tgetc. 

*/ 
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/*  NAME 

*  tntrans  -  Terminal  set  Non-TRANSparent  mode 

■k 

*  SYNOPSIS 

*  # include  <termio.h> 

* 

*  int  tntrans (term) 

*  TERM  *term; 

* 

*  DESCRIPTION 

*  tntrans  cancels  transparent  mode  set  by  ttrans. 

*/ 

/*  NAME 

*  tckeck  -  Terminal  CHECK  for  input 

* 

*  SYNOPSIS 

*  #include  <termio.h> 

* 

*  int  tcheck(term) 

*  TERM  *term; 

* 

*  DESCRIPTION 

*  tcheck  returns  the  number  of  characters  in  the  type-ahead 

*  buffer. 

*/ 

/*  NAME 

*  tpurge  -  Terminal  PURGE  typeahead 

* 

*  SYNOPSIS 

*  #include  <termio.h> 

4c 

*  int  tpurge (term) 

*  TERM  *term; 

4c 

*  DESCRIPTION 

*  tpurge  removes  all  characters  from  the  typeahead  buffer. 
*/ 

/*  NAME 

*  tgetnm  -  Terminal  GET  device  NaMe 

4c 

*  SYNOPSIS 

*  # include  <termio.h> 

4c 

*  char  * tgetnm (dev) 

*  char  *dev; 

4c 

*  DESCRIPTION 

*  returns  the  physical  device  name  associated  with  the 

*  specified  logical  device  name 

*/ 
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/*  NAME 

*  iopnd  -  internal  -  10  PeNDing 

*  SYNOPSIS 

*  static  int  iopnd (term) 

*  TERM  *term; 

* 

*  DESCRIPTION 

*  Checks  for  outstanding  io  and  waits  for  it  to  clear 

*  returns  1  io  pending  and  cleared  else  returns  0 
*/ 


/*  NAME 

*  intclose  -  INTernal  CLOSE  -  exit  handler 

* 


*  SYNOPSIS 

*  static  void  intclose (reason,  term) 

*  unsigned  long  reason; 

*  TERM  *term; 

* 


*  DESCRIPTION 


*  called  at  image  exit  to  close  open  terminals 
*/ 

TPUTNUM.C 
/*  NAME 

*  tputnum  -  Terminal  PUT  NUMber 

*  Written:  3-JUN-1983  10:12:49 

*  Revised:  9-NOV-1984  15:38:30  -  SCJONES 

* 


*  SYNOPSIS 

*  void  tputnum(i,  chan) 

*  int  i; 

*  TERM  *chan ; 

* 


*  DESCRIPTION 


* 

* 

*/ 


Converts  i  to  character 
specified  terminal. 


form  and  writes  it  to  the 


TPUTS . C 
/*  NAME 

*  tputs  -  Terminal  PUT  String 

*  Written:  3-JUN-1983  10:14:03 

*  Revised:  24-AUG-1983  09:43:27 

* 


*  SYNOPSIS 

*  void  tputs (s,  chan) 

*  char  *s; 

*  TERM  *chan; 

* 


*  DESCRIPTION 

*  Writes  the  specified  string  to  the  specified  terminal. 
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APPENDIX  D 

DEVICE  DRIVER  INCLUDE  FILES 

VTDEF . H 
/*  NAME 

*  vtdef.h  -  Virtual  Terminal  DEFinitions  and  data  structures 

*  Written:  28-AUG-1986  08:58:52  -  SCWEHRMAN 

* 

*  DESCRIPTION 

*  Defines  symbols,  externals,  etc.  for  the  internal  Virtual 
Terminal 

*/ 


fifndef  POS 


# define  GATM  1 
#define  RAM  2 
#define  CRM  3 
#define  IRM  4 


#define  SRTM  5 
#define  ERM  6 
#define  VEM  7 
#define  HEM  10 
#define  PUM  11 
#define  SRM  12 
#define  FEAM  13 
# define  FETM  14 
#define  MATM  15 
#define  TTM  16 
#define  SATM  17 
#define  TSM  18 
#define  EBM  19 
#define  LNM  20 

#define  GOODRET  0 
#define  FAILED  1 


/*  Standard  (Public)  mode  definitions 
*/ 

/*  Guarded  Area  Transfer  Mode*/ 

/*  Keyboard  Action  Mode  */ 

/*  Control  Representation  Mode  */ 

/*  Insertion-Replacement  Mode: 
(cleared  if  reformatting  the  screen 
set/cleared  by  some  device  drivers  - 
to  insert/replace  characters) . 

This  is  the  only  mode  currently 
supported  */ 

/*  Status  Reporting  Transfer  Mode  */ 
/*  Erasure  Mode  */ 

/*  Vertical  Editing  Mode  */ 

/*  Horizontal  Editing  Mode  */ 

/*  Position  Unit  Mode  */ 

/*  Send-Receive  Mode  */ 

/*  Format  Effector  Action  Mode  */ 

/*  Format  Effector  Transfer  Mode  */ 

/*  Multiple  Area  Transfer  Mode  */ 

/*  Transfer  Termination  Mode  */ 

/*  Selected  Area  Transfer  Mode  */ 

/*  Tabulation  Stop  Mode  */ 

/*  Editing  Boundary  Mode  */ 

/*  Line  feed  New  line  Mode  */ 


#define  P0S(r,  c)  ((c)  +  (r)  *  vt.dvce.dspsiz .width) 

/*  gives  position  in  screen  array 
r  =  row 

c  =  col  */ 

#define  ROW(pos)  ( (pos)  /  vt.dvce.dspsiz. width) 

/*  gives  row  pos  =  position  in 
screen  array  */ 

#define  COL(pos)  ((pos)  %  vt.dvce.dspsiz. width) 

/*  gives  col  pos  =  position  in 
screen  array  */ 
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typedef  struct  { 

unsigned  nfldmrk: 1 ; 

unsigned  bright : 1 ; 

unsigned  dim;l; 


unsigned 

unsigned 

unsigned 

unsigned 


undrscor: 1 ; 
slowblnk: 1; 
fastblnk; 1; 
reverse : 1 ; 


unsigned  conceald : 1 ; 


unsigned  guard : 1 ; 


unsigned 

unsigned 
unsigned 
}  ATTR; 


tabstp : 1 ; 

fgcolor : 3 ; 
bgcolor: 3 ; 


/*  Set  if  the  begining  of  new  field 

*/ 

/*  Set  If  forground  color  to  be 
displayed  bright  */ 

/*  Set  if  forground  color  to  be 
displayed  dim  */ 

/*  Set  if  is  to  be  underlined  */ 

/*  Set  if  is  to  blink  slow  */ 

/*  Set  if  is  to  blink  fast  */ 

/*  Set  if  background  &  forground 
colors  switched  */ 

/*  Set  if  contents  not  to  be 
displayed  on  dev.  */ 

/*  Set  if  is  to  be  protected  from 
input  from  dev.  */ 

/*  Set  if  is  to  be  tabbed  to. 

*/ 

/*  color  for  foreground  */ 

/*  color  for  background  */ 

/*  color  definitions 
BLACK  =  0 
RED  =  1 

GREEN  =  2 
YELLOW  =  3 
BLUE  =  4 
MAGENTA  =  5 
CYAN  =  6 
WHITE  =  7 

*/ 


typedef  struct 
{ 

unsigned  rdpnd : 1 ; 
unsigned  chginp ; 1 ; 
unsigned  chgfmt : 1 ; 
by  output  */ 

)  FLAGS; 


/*  Read  pending  */ 

/*  Changed  input  */ 

/*  Changed  format  or  changed 


typedef  struct 
{ 

short  row,  col; 

}  POSITION; 

typedef  struct 
( 

short  width,  depth; 
}  SIZE; 


typedef  struct  fldtyp 
{ 

struct  fldtyp  *nxtfld,  *prvfld; 

struct  wndtyp  *wndptr; 
char  *dap ; 

int  Ingth; 


/*  Next  &  previous  fields 
*/ 

/*  Containing  window  */ 

/*  Data  buffer  */ 

/*  Length  of  data  buffer 
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POSITION 

dsppos ; 

/* 

Display  position  */ 

SIZE 

dspsiz ; 

/* 

Display  size  */ 

ATTR 

attrib; 

/* 

Display  attributes  */ 

FLAGS 
)  FLD; 

flags; 

/* 

Status  flags  */ 

typedef  struct  wndtyp 
{ 

struct  wndtyp  *nxtwnd, 

struct  wndtyp  *fstwnd, 
struct  wndtyp  *parptr; 

FLD  *fstfld,  *lstfld; 

int  wndid; 

POSITION  curcrs; 

POSITION  offset; 


*prvwnd;  /*  Next  &  previous  windows 
*/ 

*lstwnd;  /*  First  &  last  child  */ 

/*  Parent  window  */ 

/*  First  &  last  fields  */ 
/*  Name  of  this  window  */ 
/*  current  cursor  position 
*/ 

/*  Scrolling  offset  */ 

SIZE  logsiz; 

/*  Logical  size  */ 

POSITION  dsppos; 

/*  Display  position  */ 

SIZE  dspsiz; 

/*  Display  size  */ 

ATTR  attrib; 

/*  Display  attributes  */ 

FLAGS  flags; 

/*  Status  flags  */ 

)  WND; 


typedef  struct 
{ 

char  *chrptr; 

WND  *wndpnt ; 

FLD  *fldpnt; 

FLAGS  *flags; 

ATTR  attr ; 

unsigned  chg : 1 ; 

}  SCREEN; 

typedef  struct  devtyp 
{ 

unsigned  bldflg:!; 
unsigned  inpflg:!; 


/*  Pointes  to  position  in  field's 
dap  */ 

/*  if  NULL  then  not  field  but  window 
*/ 

/*  Pointes  to  window  occupying  this 
position  */ 

/*  Pointes  to  field  occupying  this 
position  if  NULL  then  no  field  at 
his  position  */ 

/*  Status  flags  for  this  position  on 
screen  */ 

/*  Attribute  for  this  position  on 
screen  */ 

/*  Need  to  Changed  on  terminal  flag 
*/ 


/*  In  process  of  building  screen  flag 
*/ 

/*  Input  from  terminal  flag  */ 

unsigned  insrt:l;  /*  In 

insert  character  (.instead  of 
overstrike)  mode  */ 
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int 

maxpos ; 

/* 

int 

termpos ; 

/* 

int 

curpos ; 

/* 

int 

savpos ; 

/* 

WND 

*curwnd; 

/* 

SCREEN 

*screen; 

/* 

}  DEVICE; 


Maximum  terminal  screen  position 
*/ 

Current  physical  terminal  screen 
position  */ 

Current  virtual  terminal  screen 
position  */ 

Save  virtual  terminal  screen 
position  */ 

Current  window  */ 

short  funct;  /*  Last 

function  key  */ 

WND  dvce;  /*  Device 

window  -  the  top  window  of 
the  device  */ 

One  to  one  mapping  of  screen 
positions  to  internal  data 
structure 
*/ 


extern  DEVICE  vt; 


/*  External  definition  of  device 
structure  */ 


FUNCTS . H 
#endif 
/*  NAME 

*  functs.h  -  FUNCTion  definitions 

*  Written:  24-AUG-1983  09:49:37 

*  Revised:  17-JUL-1986  14:19:43  •  SCWEHRMAN 

* 

*  DESCRIPTION 

*  Defines  the  mnemonic  virtual  terminal  command  functions. 

*  And  defines  structure  for  parsing  vti  message  buffer. 


*/ 

#ifndef 

FUNCFLAG 

#def ine 

FUNCFLAG  1 

#def ine 

BEL 

7 

#def ine 

BS 

8 

#def ine 

HT 

9 

#def ine 

LF 

10 

#define 

FF 

12 

#def ine 

CR 

13 

idefine 

RS 

30 

#define 

US 

31 

idefine 

IND 

1004 

idefine 

NEL 

1005 

idefine 

HTS 

1008 

idefine 

RI 

1013 

idefine 

DCS 

1016 

#define 

STS 

1019 

idefine 

ST 

1028 

idefine 

APC 

1031 

idefine 

RIS 

1035 

idefine 

ICH 

3000 

idefine 

CUU 

3001 
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#define  CUD  3002 
#define  CUF  3003 
tdefine  CUB  3004 
#define  CNL  3005 
#define  CPL  3006 
#define  CUP  3008 
#define  CHT  3009 
fdefine  ED  3010 
tdefine  EL  3011 
#define  IL  3012 
#define  DL  3013 
#define  EF  3014 
#define  DCH  3016 
#define  CPR  3018 
#define  NP  3021 
#define  PP  3022 
#define  ECH  3024 
#define  CBT  3026 
#define  HPA  3032 
#define  HPR  3033 
#define  VPA  3036 
#define  VPR  3037 
#define  HVP  3038 
#define  TBC  3039 
#define  SM  3040 
#define  MC  3041 
#define  RM  3044 
#define  SGR  3045 
Idefine  DSR  3046 
#define  DAQ  3047 
#define  WP  3048 
#define  RW  3050 
#define  SW  3051 
#define  EW  3053 
#define  DW  3055 
#define  DF  3056 
#define  REF  4000 
#define  SPM  4040 
#define  RPM  4044 

typedef  struct  command 

{ 

int  funct,  maxparm,  nparm,  parm[l]; 

}  CMD; 

#define  BLDCMD(n)  struct{int  funct,  maxparm,  nparm,  parm[n];} 

/*  Iternally  used  virtual  term, 
commands  */ 

extern  struct  command  errcmd;  /*  error  command  */ 

extern  struct  command  rstcmd; 

/*  restore  command  */ 

#endif 
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APPENDIX  E 

SAMPLE  DEVICE  DRIVER  (DEC  VT-100  -  MONOCHROME) 


/*  NAME 

*  vtlOO  -  vtlOO  terminal  driver  routines 

*  Written:  25-MAY-1983  11:32:20 

*  Revised:  26-AUG-1986  17:22:19  -  SCWEHRMAN 

* 

*  DESCRIPTION 

*  Device  dependent  modules  for  the  DEC  VTIOO  device  driver. 
*/ 

# include  <stdtyp.h> 

#include  <string.h> 

# include  <ctype.h> 

# include  <termio.h> 

# include  <vtdef.h> 

# include  <functs.h> 

#include  "prntdef.h" 

#define  BUFSIZ  512 
#define  BUFNUM  2 


static  TERM  *chan7 

static  void  refresh () ; 
static  void  movcur() ; 
static  void  sndchrO » 
static  void  setatr() ; 
void  trmputO  ; 

/*  NAME 

*  trmini  -  TeRMinal  initialize 

* 

*  SYNOPSIS 

*  bool  trmini (tname) 

*  char  *tname; 

* 

*  DESCRIPTION 

*  Opens  the  terminal  specified  by  tname  and  initializes  it. 
*/ 

bool  trmini (tname) 
char  *tname; 

{ 

if  ((chan  =  tbopen (tname,  BUFSIZ,  BUFNUM))  ==  NULL)  return 
FAILED; 

#ifdef  WIDE 

vt.dvce. logsiz .width  =  vt.dvce.dspsiz .width  =  132; 

#endif 

#ifdef  PRINTER 

return  prnini (tname) ; 

#else 

return  GOODRET; 

#endif 

) 
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/*  NAME 

*  trmend  -  TeRMinal  END 

* 

*  SYNOPSIS 

*  void  trmend {) 

* 

*  DESCRIPTION 

*  Resets  the  currently  open  terminal  and  closes  it. 


void  trmend 0 

{ 

register  int  i; 


tifdef  PRINTER 
prnendO  ; 

#endif 

for  (i=9;  i<80;  i+=8) 
tputs("\33[m\33>\r'‘,  chan); 
tclose(chan) ; 

} 

/*  NAME 

*  trmfls  -  TeRMinal  FLuSh 


tputs  ( ”  \3  3  [  8C\3  3H'' , 


chan)  ; 


*  SYNOPSIS 

*  void  trmfls () 

* 

*  DESCRIPTION 

*  Flush  any  terminal  buffers. 


void  trmfls 0 

{ 

movcurO  ; 
t flush (chan) ; 

} 

/*  NAME 

*  trmchk  -  TeRMinal  CHecK 

* 

*  SYNOPSIS 

*  int  trmchk ( ) 

*  DESCRIPTION 

*  This  module  returns  the  number  of  characters  in  the 
type-ahead  buffer. 

*/ 

int  trmchk 0 
{ 


return  tcheck(chan) ; 
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/*  NAME 

*  trmget  -  TeRMinal  GET 

* 

*  SYNOPSIS 

*  void  trmget (cmd) 

*  struct  command  *cmd; 

* 

*  DESCRIPTION 

*  Gets  the  next  command  from  the  terminal  and  converts  it  to 
internal  form. 

*/ 


void  trmget (cmd) 

struct  command  *cmd; 

{ 

register  char  c; 
register  int  num,  i; 

static  BLDCMD(2)  curcmd  =  (  CUP,  2,  2,  0,  0  ); 


if  (isprint(c  =  tgetc (chan) ) )  /*  printable  */ 


{ 

cmd->funct  =  0; 
cmd->nparm  =  1; 
cmd->parm[0]  =  c; 

} 

else  if  (c  1=  '\33')  /*  control  char  */ 

if  (c  ==  '\22'  II  c  ==  '\27')  cmd->funct  =  REF; 
else  if  (c  ==  '\177')  cmd->funct  =  DCH; 
else  cmd->funct  =  c; 
cmd->nparm  =  0; 

} 

else  switch  (c  =  tgetc(chan)) 

{ 

case  'O':  /*  APC  */ 

cmd->funct  =  APC; 
cmd->nparm  =  1 ; 
cmd-->parm[0]  =  1; 
switch  (c  =  tgetc(chan)) 

{ 


case 

'M' 

case 

'P' 

case 

'Q' 

case 

'R' 

case 

'S' 

case 

'  w' 

case 

'X' 

case 

'y' 

case 

'm' 

case 

't' 

case 

'u' 

case 

'V' 

case 

'1 ' 

case 

'q' 

case 

'r' 

cmd->parm[0] 

cmd->parm[0] 

cmd->parm[0] 

cmd->parm[0] 

cmd->parm[0] 

cmd->parm[0] 

cmd->parm[0] 

cmd->parm[0] 

cmd->parm[0] 

cmd->parm[0] 

cmd->parm[0] 

cmd->parm[0] 

cmd->parm[0] 

cmd->parm[0] 

cmd->parm[0] 


0 ;  break ; 

1 ;  break ; 

2 ;  break ; 

3 ;  break ; 

4 ;  break ; 
5;  break; 

6 ;  break ; 

7 ;  break ; 
8;  break; 
9;  break; 
10;  break; 
11;  break; 
12;  break; 
13;  break; 
14;  break; 
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case 

•s' 

case 

•p' 

case 

•n* 

case 

•A' 

case 

•B' 

case 

•C 

case 

•D' 

break ; 
case  ' \t • : 

cmd~>funct  = 
cmd->nparm  = 
cmd->parm[0] 
break ; 
case 

cmd->funct  = 
cmd->nparm  = 
break ; 

case  '\177': 
cmd->funct  = 
cmd->nparm  = 
cmd->parm[0] 
break ; 


cmd->parm[0]  =  is;  break; 
cmd->parm[0]  =16;  break; 
cmd->parm[0]  =  17;  break; 
cmd-'>funct  =  CUU;  break; 
cmd->funct  =  CUD;  break; 
cmd->funct  =  CUF;  break; 
cmd->funct  =  CUB;  break; 


/*  back  tab  */ 

CBT; 

1; 

=  1; 

/*  erase  end  of  field  */ 
EF;  ' 

0; 

/*  insert/overstrike  mode 
vt.insrt  ?  RM  :  SM; 

1; 

=  IRM; 


*/ 


•0' 


case  * { • ;  /* 

num  =  0; 

while (isdigit(c  =  tgetc(chan) 


function  keys  sequence  */ 
) )  num  =  10  *  num  +  c  - 


if  (c  ==  • ) ') 

{ 

cmd->funct  =  ARC; 
cmd“>nparm  =1; 
cmd->parmt0]  =  num; 
} 

else 

{ 

cmd->funct  =  BEL; 
cmd->nparm  =  o; 

} 

break; 


case  *  1 • :  case 

'2' : 

case 

case 

•6'  ; 

case 

cmd->parm[0] 
goto  pfcom; 
case  'O': 

=  c  - 

'O' ; 

cmd->parm[0] 
goto  pfcom; 
case  'q' : 

=  10; 

cmd->parm[0] 
goto  pfcom; 
case  'w' : 

=  11; 

cmd«->parm[0] 
goto  pfcom; 
case  'e' : 

=  12; 

cmd->parm[0] 

=  13; 

/*  function  keys  */ 
•3’:  case  '4':  case 

'  7 • ;  case  ' 8 ' :  case 


•5'  ; 

191. 
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goto  pfcom; 
case  ' r ' : 

cmd->pann[0]  =  14; 
goto  pfcom; 
case  't ' : 

cmd->parm[0]  =  15; 
goto  pfcom; 
case  'y'; 

cmd->parm[0]  =  16; 
goto  pfcom; 
case  'u' : 

cmd->parm[0]  =  17; 
goto  pfcom; 
case  ' i ' : 

cmd->parm[0]  =  18; 
goto  pfcom; 
case  'o' : 

cmd->parm[0]  =  19; 
goto  pfcom; 
case  'p ' : 

cmd->parm[0]  =  20; 
goto  pfcom; 
case  ' \r ' : 

cmd->parm[0]  =  0; 
pfcom: 

cmd->funct  =  APC; 
cmd->nparm  =  1; 
break; 

case  ' [ ' :  /*  control  sequence  */ 

i  =  0; 
do 

{ 

num  =  0; 

while (isdigit(c  =  tgetc(chan) ) )  num  =  10  *  num  +  c 

cmd->parm[ i++]  =  num; 

)  while  (c  ==  ' ; ' ) ; 
cmd->funct  =  3000  +  c  -  '§'; 
cmd->nparm  =  i; 
break; 
default: 

cmd->funct  =  1000  +  c  - 
cmd->nparm  =  0; 


switch  (dovt(cmd)) 

{ 

case  -1: 

cmd->funct  =  BEL; 
cmd->nparm  =  0; 
case  1: 

trmput(cmd) ; 
break; 

} 

trmfls ( ) ; 

} 
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/*  NAME 

*  trmput  -  TeRMinal  PUT 

* 

*  SYNOPSIS 

*  void  trmput (cmd) 

*  struct  command  *cmd; 

* 

*  DESCRIPTION 

*  Puts  an  internal  format  command  to  the  terminal. 


void  trmput (cmd) 

struct  command  *cmd; 

{ 

int  i,  j,  k,  savepos; 
char  c; 

switch  (cmd->funct) 
case  0: 

if  (vt.insrt)  refresh() ; 

else  sndchr(cmd->parm[0] ) ; 

vt . curpos++ ; 

if  (vt.curpos  <  vt.maxpos) 

vt , dvce , curcrs . row  =  ROW(vt. curpos)  +  i; 
vt.dvce.curcrs.col  =  COL (vt.curpos)  +  i; 

else 

{ 

vt.curpos  =  0; 

vt . dvce . curcrs . row  =  vt.dvce.curcrs.col  =  i; 

break; 
case  BEL: 

tputc('\7',  chan) ; 

break; 
case  BS: 
case  US; 
case  NEL; 
case  LF; 
case  IND: 
case  CR: 
case  HTS: 
case  RI: 
case  DCS: 
case  CPL: 
case  CUU: 
case  CNL; 
case  CUD; 
case  VPR: 
case  CUF; 
case  HPR; 
case  CUB: 
case  CUP; 
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case  HVP: 
case  CPR: 
case  HT: 
case  CHT: 
case  CBT: 
case  HPA; 
case  VPA; 
movcurO  ; 
break; 
case  RIS: 
case  REF; 

#ifdef  WIDE 

tputs(''\33<\33  [H\33  [  J\33  [?3h\33  [4  ;201\33  [3g\33  [m\33=\33  [q"  , 
chan);  /*  removed  \33[12h  for  Tek  410x  firmware  bug  */ 


tputs  (''\33<\33  [H\33  [  J\33  [?31\33  [4  ;201\33  [3g\33  [m\33=\3  3  [q”  , 
chan);  /*  removed  \33[12h  for  Tek  410x  firmware  bug  */ 

#endif 

if  (cmd->funct  ==  RIS)  break; 


\33< 

\33[H 
\33  [J 
\33[?3h 
\33[?31 
\33[4;201 

\33t3g 
\33[3m 
\33[  = 
\33[3q 


Enter  ANSI  mode 
Home  cursor 

Erase  screen  from  cursor  to  end 
Set  terminal  to  132  columns 
Set  terminal  to  80  columns 

Set  terminal  to:  Insertion-replacement  Mode 
Linefeed  /  new  line  Mode 
Clear  all  tabs 

Select  graphic  rendition  (no  attributes) 
Enter  Alternate  Keypad  mode 
Turn  off  Load  LEDs  (LI  off) 


******************************************************y' 

case  RS: 
case  FF: 
case  NP: 
case  PP; 
case  EW: 
case  DW: 
case  DF; 
case  ICH: 
case  IL: 
case  DL: 
case  EF; 
case  DCH: 
case  ECH; 

refresh ( ) ; 
break ; 
case  MC: 

#ifdef  PRINTER 

cmd->funct  =  REF; 
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prnput(cmd) ; 
prnflsO  ; 
break ; 

#endif 

case  DSR: 
case  TBC: 
case  APC; 
case  SM: 
case  RM: 
case  SPM; 
case  RPM: 
break ; 

} 

} 

/*  NAME 

*  refresh  -  REFRESH  terminal 

* 

*  SYNOPSIS 

*  static  void  refresh () 

•k 

*  DESCRIPTION 

*  Clears  the  terminal  screen  and  rewrites  it  from  the 
internal  screen. 

*/ 


maxpos ,  savpos ; 


static  void  refresh () 

{ 

register  ini  k,  j,  i, 
savpos  =  vt.curpos; 
vt.termpos  =  -l; 
for ^ (maxpos  =  vt. maxpos,  i  =  0; 


i  <  maxpos; 


3  =  i  +  vt.dvce.dspsiz. width; 
for  (k  =  i;  k  <  j;  k++) 

{ 

if  (( (yt, screen [k] .fldpnt 

vt . screen [ k ] . attr . undr scor 
(vt. screen [k] .attr. reverse  ? 
vt. screen [k] .attr. fgcolor  : 
vt. screen [k] .attr. bgcolor) 

> 


(vt. screen[k] .attr. reverse  ? 
vt . screen [ k] . attr . bgcolor  : 
vt.screen[k] .attr. fgcolor) ) 

&&  (vt. screen [ k] . flags  && 
vt.screen[k] . flags->chgfmt) ) 

II  vt. screen [ k] .chg) 

vt.curpos  =  k; 
if  (vt. screen [ k] .chrptr) 
sndchr(*vt. screen [ k] .chrptr) ; 

else  sndchr('  '); 

) 

) 

) 

vt.termpos  =  -i; 
vt.curpos  =  savpos; 
trmflsO  ; 

} 


i  =  j) 
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/*  NAME 

*  sndchr  -  SeND  CHaRacter  to  terminal 

* 

*  SYNOPSIS 

*  static  void  sndchr (c) 

*  char  c ; 

* 

*  DESCRIPTION 

*  sends  character  to  terminal 
*/  . 

static  void  sndchr (c) 
char  c; 

{ 

static  ATTR  Istatt, tstatt ; 
static  FLD  *lstfld; 
static  WND  *lstwnd; 

movcurO  ; 

if  (vt. screen [vt.termpos ]  .wndpnt  !=  Istv'nd  || 
vt . screen[vt . termpos] .  fldpnt  1=  lst*:ld) 

{ 

Istwnd  =  vt. screen [vt.termpos] .wndpnt ; 

Istfld  =  vt. screen [vt. termpos] . fldpnt; 

STRASN( tstatt,  vt. screen [vt. termpos ] .attr) ; 
tstatt. nfldmrk  =  FALSE; 

if  (memcmp(&tstatt,  &lstatt,  sizeof  Istatt)  1=  0) 

{ 

STRASN( Istatt,  tstatt); 
setatr () ; 

) 

} 

if  ( vt. screen [vt.termpos] .attr. conceald  ||  c  <  '  ')  c  =  ' 

I  • 

t 

tputc(c,  chan) ; 
if (COL(vt. termpos++)  ==  0) 
vt.termpos  =  -1; 

) 

/*  NAME 

*  setatr  -  SET  ATtRibutes  (internal) 

* 

*  SYNOPSIS 

*  void  setatr 0 

* 

*  DESCRIPTION 

*  Sets  the  specified  terminal  attributes. 

*/ 

static  void  setatr () 

{ 

register  char  *ptr; 

ATTR  tnew; 
char  buff[25]; 

static  char  cmap[8],  =  {'O',  '2',  '4',  '6',  'l',  '3',  '5', 

'  7  '  )  ; 

tnew. bright  =  vt. screen [vt.termpos ]. attr. bright ; 
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tnew.undrscor  =  vt. screen [ vt. termpos ] .attr.undrscor; 
tnew.slowblnk  =  vt. screen [vt. termpos] . attr. slowblnk  | 

vt. screen [vt. termpos] . attr. fastblnk; 
if  (vt. screen [vt. termpos] .attr. reverse) 

{ 

tnew.fgcolor  =  vt. screen [ vt. termpos ] .attr. bgcolor ; 
tnew. bgcolor  =  vt. screen [ vt. termpos] .attr. fgcol or; 

} 

else 

{ 

tnew . f gcolor  =  vt . screen [ vt . termpos ] . attr . f gcolor ; 
tnew. bgcolor  =  vt.screen[vt. termpos] .attr. bgcolor ; 

) 

ptr  =  buff; 

*ptr++  =  '\33'; 

*ptr++  =  '  [ '  »• 
if  (tnew. bright) 

{ 

*ptr++  =  ' ; ' ; 

*ptr++  =  ' 1 ' ; 

} 

if  (tnew.undrscor) 

{ 

*ptr++  =  • ; ' ; 

*ptr++  =  ' 4 ' ; 

} 

if  (tnew.slowblnk) 

{ 

*ptr++  =  ' ; * ; 

*ptr++  =  ’ 5 ’ ; 

) 

if  (cmap[tnew. bgcolor]  >  cmap[tnew. fgcolor ] ) 

{ 

*ptr++  =  * ; ' ; 

*ptr++  =  ' 7 ' ; 

} 

*ptr++  =  ’m'; 

*ptr  =  ' \0 ' ; 
tputs(buff ,  chan) ; 

} 

/*  NAME 

*  movcur  -  MOVe  CURsor  (internal) 

* 

*  SYNOPSIS 

*  static  void  movcur () 

* 

*  DESCRIPTION 

*  Moves  the  terminal  cursor  to  the  current  cursor  position 

*/ 

static  void  movcur () 

{ 

register  int  dr,  dc,  nr,  nc; 

if  (vt.curpos  !=  vt. termpos) 

{ 
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dr  =  (nr  =  ROW(vt.curpos) )  -  ROW(vt . termpos) 
dc  =  (nc  =  COL(vt.curpos) )  -  COL (vt. termpos) 
if  (vt.teirmpos  >=  0  &&  dr  ==  0) 

{ 

if  (nc  ~  0)  tputc('\r*,  chan); 
else  if  (dc  >  0) 

{ 

tputs(''\33  [•' ,  chan); 
tputnum(dc,  chan) ; 
tputc('C',  chan); 

} 

else  if  (dc  >=  -4) 

while  (dc++  <  0)  tputc('\10',  chan); 
else 
{ 

tputs ( ” \3 3 [ " ,  chan) ; 
tputnum(-dc,  chan) ; 
tputc ( ' D ' ,  chan) ; 

} 

else  if  (vt. termpos  >=  0  &&  (dc  ==  0  | | 

{ 

if  (dc  !=  0)  tputc ('\r',  chan); 
if  (dr  >  4) 

{ 

tputs  ( •'  \3  3  [  •' ,  chan )  ; 
tputnum(dr,  chan) ; 
tputc('B',  chan); 

} 

else  if  (dr  >  0) 

while  (di —  >  0)  tputc ('\12',  chan); 
else  if  (dr  ==  -1) 

tputs (” \3 3M" ,  chan); 
else 
{ 

tputs(''\33  [",  chan); 
tputnum(-dr,  chan) ; 
tputc ('A',  chan); 

} 

) 

else 

{ 

tputs  ( •'  \3  3  [  ” ,  chan )  ; 

if  (nr  >  0)  tputnum(nr  +  1,  chan) ; 

if  (nc  >  0) 

{ 

tputc ( ' ; ' ,  chan) ; 
tputnum(nc  +  1,  chan) ; 

) 

tputc('H',  chan); 

) 

vt. termpos  =  vt.curpos; 

) 

) 

# include  "prntdev.h” 


nc  ==  0 ) ) 
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APPENDIX  F 

SAMPLE  DEVICE  DRIVER  (IBM-3270  -  COLOR) 

/*  NAME 

*  ibm3270  -  IBM  3270  terminel  driver  routines 

*  Written:  27-NOV-1984  09:42:10  -  SCJONES 

*  Revised:  26-SEP-1986  03:42:57  -  WEHRMAN  - 
NEW-VT-RELEASE 

* 

*  DESCRIPTION 

*  device  dependent  modules  for  the  IBM  3270  device  driver. 
*/ 


# include  <stdtyp.h> 

# include  <string.h> 

#include  <functs.h> 

# include  <vtdef.h> 

# include  <trmrtn.h> 

#include  <ibm3270.h> 

#define  TBSIZE  4096 
static  char  tbuff [TBSIZE ] ; 
static  char  *tbptr; 

static  char  *tbend  =  tbuff  +  TBSIZE; 
static  char  *chan; 
static  int  hilite; 

int  dovt ( ) ; 

static  void  intfls()  ; 
static  void  setatr(); 
static  void  movcur(); 
static  int  getaddr(); 
static  void  putaddrO? 
static  void  addchr(); 
static  void  addstr(); 
static  void  refresh(); 
static  void  sndchr(); 

/*  NAME 

*  trmini  -  TeRMinal  INItialize 

* 

*  SYNOPSIS 

*  bool  trmini (tname) 

*  char  *tname; 

* 

*  DESCRIPTION 

*  Opens  the  terminal  specified  by  tname  and  initializes  it. 
*/ 
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bool  trmini (tname) 
char  *tnaine; 

{ 

int  wdth,  dpth; 
tbuff[0]  =  W_CMD; 
tbuff[l]  =  0; 
tbptr  =  &tbuff[2]; 

if  (itopen(&chan,  Sdpth,  &wdth,  Shilite) ) 
return  FAILED; 

vt.dvce.dspsiz. width  =  wdth; 
vt.dvce.dspsiz .depth  =  dpth; 
return  GOODRET; 

} 

/*  NAME 

*  trmend  -  TeRMinal  END 

* 

*  SYNOPSIS 

*  void  trmend ( ) 

* 

*  DESCRIPTION 

*  Resets  the  currently  open  terminal  and  closes  it. 
*/ 


void  trmend 0 

{ 

itclos(chan) ; 

} 

/*  NAME 

*  trmfls  -  TeRMinal  FLuSh 

* 

*  SYNOPSIS 

*  void  trmfls 0 

* 

*  DESCRIPTION 

*  Routine  to  flush  any  terminal  buffers. 

*/ 

void  trmfls 0 

{ 

movcurO  ; 
addchr(IC) ; 
intf Is ( )  ; 

} 


/*  NAME 

*  intfls  -  INTernal  FLuSh 

* 

*  SYNOPSIS 

*  static  void  intfls () 

* 

*  DESCRIPTION 

*  Internal  routine  to  flush  any  terminal  buffers. 
*/ 
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static  void  intfls() 

{ 

int  len; 

if  ((len  =  tbptr  -  tbuff)  >2  | |  tbuff[0]  !=  W_CMD  | | 

tbuff[l]  !=  0) 

{ 

tbuff [1]  =  convrtb[tbuff [1] ] ; 
itsend(chan,  tbuff,  len) ; 

} 

tbuff [0]  =  W_CMD; 
tbuffCl]  =  0; 
tbptr  =  &tbuf  f [ 2 ] ; 

) 

/*  NAME 

*  trmchk  -  TeRMinal  CHecK 

* 

*  SYNOPSIS 

*  int  trmchk ( ) 

* 

*  DESCRIPTION 

*  This  module  returns  TRUE  if  there  are  input  characters  to 
be  processed. 

*/ 


int  trmchk 0 

( 


return  (itchek(chan) 

} 

NAME 

==  0); 

/* 

4c 

ic 

trmget  -  TeRMinal 

GET 

* 

SYNOPSIS 

* 

void  trmget (cmd) 

* 

struct  command 

*cmd; 

* 


*  DESCRIPTION 

*  Gets  the  and  processes  entire  buffer  passes  back  ape 
command  or 

*  cursor  command  depending  on  mode. 

*/ 

void  trmget(cmd) 

struct  command  *cmd; 

{ 

int  aid,  len,  pendpos; 
char  *bufend; 

bool  shift  =  FALSE,  flag  =  FALSE;; 
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do  { 

aid  =  0; 

if  ( ! itrecv(chan,  tbuff,  sizeof  tbuff,  &len) ) 

tbptr  =  tbuff; 
bufend  =  tbptr  +  len; 
aid  =  *tbptr++  &  0x3 f; 

if  (len  >  2)  vt.termpos  =  getaddr (tbptr) ,  tbptr  +=  2; 
while  (tbptr  <  bufend) 

{ 

if  ((*tbptr)  ==  SBA)  /*  has  to  be  SBA  */ 

if  (flag) 

{ 

flag  =  FALSE; 
cmd->funct  =  EF; 
cmd->nparm  =  1; 
cmd->parm[0]  =  0; 
tbptr  +=  3 ; 

) 

else 

( 

cmd->funct  =  CUP; 

cmd->nparm  =2; 

pendpos  =  getaddr (tbptr  +  1) ; 

cmd->parm[0]  =  ROW (pendpos)  +  1; 

cmd->parm[l]  =  COL (pendpos)  +  1; 

flag  =  TRUE; 

) 

} 

else 

{ 

cind->funct  =  0; 
cind->nparm  =  1 ; 
cmd->parm [ 0 ]  =  *tbptr++ ; 

) 

if  (dovt(cmd)  ==  -l) 

{ 

aid  =  0; 
break; 

} 

else  if  (cmd->funct  ==  0) 

{ 

vt.curpos++; 

if  (vt.curpos  <  vt.maxpos) 

{ 

vt . dvce . curcrs . row  =  ROW (vt.curpos)  +  1; 
vt.dvce.curcrs.col  =  COL(vt .curpos)  +  1; 

} 

else 

{ 

vt.curpos  =0; 

vt. dvce. curcrs. row  =  vt.dvce.curcrs.col  =  1; 

) 

} 

} 
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aid  - 


again 

loop 


*/ 


cmd->funct  =  APC; 
cmd->npann  =  l; 

if  (aid  ==  lENTER)  cmd->parm[0]  =  ENTER_KEY; 
else  if  (aid  >=  PFl  &&  aid  <=  PF12) 

cmd->parm[0]  =  aid  -  PFl  +  (shift  ?  11  :  1) ; 
else  if  (aid  >=  PF13  &&  aid  <=  PF24)  cmd->parm[0]  = 
PF13  +  13; 

else  if  (aid  ==  PA2) 

{ 

cmd->funct  =  0; 
shift  =  TRUE; 

} 

else  /*  error/unknown  aid  -  refresh  screen  and  try 
CLEAR  aid  -  refresh  screen  before  leaving 

*/ 

{ 

cmd->funct  =  REF; 
cmd->nparm  =  1; 
dovt(cmd) ; 

tbuff[0]  =  EW_CMD;  /*  change  command  */ 
tbuff[l]  1=  UNLCK  I  RSMDT  \  ALARM;  /*  add  to  wcc 

tbptr  =  &tbuff[2]; 
refresh ( ) ; 
if  (aid  ==  CLEAR) 

{ 

cmd->funct  =  APC; 
cmd->nparm  =  1; 
cmd->parm[0)  =  CLEAR_KEY; 

} 

else 


{ 

cmd->funct  =  0; 
shift  =  FALSE; 

} 

} 

} 

}  while  (cmd->funct  !=  APC) ; 
vt.curpos  =  vt.termpos; 
tbuff[0]  =  W_CMD; 
tbuff[l]  =  0; 
tbptr  =  &tbuff[2]; 

) 

/*  NAME 

*  trmput  -  TeRMinal  PUT 


*  SYNOPSIS 

*  void  trmput (cmd) 

*  struct  command  *cmd; 

* 


*  DESCRIPTION 

*  Puts  an  internal  format  command  to  the  terminal. 

*/ 
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void  trmput (cmd) 

struct  command  *cmd; 

{ 

int  i ,  j ,  savepos ; 
char  c; 

char  intcmd [ 6 ] ; 


switch 

{ 

case 

(cmd->funct) 

BS: 

case 

NEL: 

case 

LF: 

case 

IND: 

case 

CR: 

case 

HTS: 

case 

RI: 

case 

DCS: 

case 

CPL: 

case 

CUU: 

case 

CNL: 

case 

CUD: 

case 

VPR: 

case 

CUF: 

case 

HPR: 

case 

CUB: 

case 

CUP: 

case 

HVP: 

case 

CPR: 

case 

HT: 

case 

CHT: 

case 

CBT: 

case 

HPA: 

case 

VPA: 

movcur ( ) ; 
break; 

case 

RIS: 

case 

REF: 

tbuff[0]  =  EW_CMD 
tbuff[l]  =  0; 
tbptr  =  &tbuff[2] 
if  (cmd->funct  != 
break; 
case  RS: 

tbuff[l]  1=  UNLCK 
refresh  0 ; 
break ; 
case  BEL: 

tbuff[l]  1=  ALARM 
break; 
case  MC: 

#ifdef  PRINTER 

cmd->funct  =  REF; 
prnput(cmd) ; 
prnflsQ  ; 

#endif 

break; 

) 

) 


/*  change  command  */ 
REF) 

I  RSMDT; 

/*  add  to  wcc  */ 
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/*  NAME 

*  refresh  -  REFRESH  terminal 

* 

*  SYNOPSIS 

*  static  void  refresh () 

* 

*  DESCRIPTION 

*  Clears  the  terminal  screen  and  rewrites  it  from  the 
internal  screen. 

*/ 

static  void  refresh () 

{ 

register  int  k,  i,  mp,  savpos; 

savpos  =  vt.curpos; 
vt.termpos  =  -1; 

for  (i  =  vt .minprf . row;  i  <  vt.maxprf . row;  i++) 

{ 

for  (k  =  P0S(i,  vt.minprf .col) ,  mp  =  POS(i, 
vt.maxprf. col) ;  k  <  mp;  k++) 

{ 

if  (( (vt. screen [k] .chrptr  &&  (*vt. screen [ k] .chrptr  != 
vt.screen[k] .c) ) 

II  ( vt. screen [ k] .attr. reverse  ? 

vt. screen[k] .attr. bgcolor  ; 
vt.screen[k] .attr. fgcolor) 

(vt. screen [k] .oattr. reverse  ? 
vt. screen [k] .oattr. bgcolor  : 
vt . screen [ k] . oattr . fgcolor) 

II  vt. screen [k] .attr. guard  != 
vt . screen [ k ] . oattr . guard 

II  vt.screen[k] .attr.undrscor  != 
vt . screen [ k] . oattr . undrscor 

II  vt. screen [k] .attr. slowblnk  != 
vt. screen [k] . oattr . slowblnk 

II  vt. screen[k] .attr. fastblnk  != 
vt. screen [k] . oattr. fastblnk) 

II  (vt. screen[k] .attr. reverse  ? 

vt. screen[k] .attr. fgcolor  : 
vt. screen [k] .attr. bgcolor) 

I  = 

(vt.screen[k] .oattr. reverse  ? 
vt. screen[k] .oattr. fgcolor  : 
vt . screen [ k] . oattr . bgcolor) 

II  vt.screen[k] .attr.nfldmrk  != 
vt. screen [k] . oattr . nfldmrk 

II  (vt. screen [k] .c  !=  '  '  &&  !vt.screen[k] .chrptr) ) 

{ 

vt.curpos  =  k; 
if  (vt. screen [k] . chrptr) 
sndchr(*vt. screen [k] .chrptr) ; 

else  sndchr('  '); 

) 

} 
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vt.  tempos  =  -1; 
vt.curpos  =  savpos; 
tmfls  ( )  ; 


/*  NAME 


sndchr  -  SeND  CHaRacter  to  terminal 


*  SYNOPSIS 


static  void  sndchr (c,  ) 
char  c; 


*  DESCRIPTION 

*  sends  character  to  terminal 
*/ 

static  void  sndchr (c) 
char  c; 

{ 

static  FLD  *lstfld  =  NULL; 
static  WND  *lstwnd  =  NULL; 
int  pos  =  vt.curpos; 

if  (vt. screen [vt.curpos ] .wndpnt  !=  Istwnd  || 
vt. screen [ vt. curpos] .fldpnt  !=  Istfld) 

{ 

Istwnd  =  vt. screen [pos] .wndpnt; 

Istfld  =  vt. screen [pos] . fldpnt; 

if  (Istfld  &&  COL(pos)  !=  0)  vt.curpos — ; 

else  if  (Istfld  !=  vt . screen[pos  +  1]. fldpnt)  return; 

movcurO  ; 

setatr(pos) ; 

vt.  screen  [vt.  tempos]  .attr.nfldmrk  =  TRUE; 

STRASN ( vt . screen [ vt . termpos ] . oatt r , 
vt.  screen  [vt.  tempos]  .attr)  ; 

if  (COL (++vt.  termpos)  ===  0) 
vt.  tempos  =  -1; 

if  (llstfld  II  COL(pos)  ==  0)  return; 
vt . curpos++ ; 

) 

movcur ( ) ; 

if  (c  <  '  ' )  c  =  '  '; 

vt.  screen  [vt.  tempos]  .c  =  c; 

STRASN ( vt . screen [vt . termpos] . oattr , 
vt. screen [vt. termpos] .attr) ; 
addchr(c) ; 

if  (COL (++vt.  tempos)  ==  0) 
vt. termpos  =  -1; 

) 

/*  NAME 

*  setatr  -  SET  ATtRibutes 

* 

*  SYNOPSIS 

*  void  setatr (pos) 

*  int  pos ; 

* 

*  DESCRIPTION 

*  Sets  the  specified  terminal  attributes. 
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static  void  setatr(pos) 
int  pos ; 

{ 

register  char  *ptr; 

VTATTR  tnew; 

int  temp ; 

char  intcmd[25] ; 

static  char  coltab[8]  =  { 

IBLACK, 

IRED, 

IGREEN, 

I YELLOW, 

I BLUE, 

IMAGENTA, 

I CYAN, 

IWHITE , 

} ; 

static  char  cmap[8]  =  {'O',  '2',  '4*,  '6', 
'  7  ' }  ; 


STRASN ( tnew ,  vt . screen [ pos ] . attr ) ; 

tnew. slowblnk  =  vt. screen [pos] .attr. slowblnk  | 

vt. screen [pos] .attr. fastblnk; 
if  (vt.screen[posj .attr. reverse) 

( 

tnew.fgcolor  =  vt. screen [pos] .attr. bgcolor ; 
tnew. bgcolor  =  vt. screen [pos] .attr. fgcolor; 

else 

{ 

tnew.fgcolor  =  vt.screen[pos] .attr. fgcolor; 
tnew. bgcolor  =  vt.screen[pos] .attr. bgcolor; 

} 

if  (hilite  ==  0) 

{ 

intcmd[0]  =  SF; 
temp  =  0; 

if  (tnew. guard)  temp  |=  NENT  |  NUM; 

if  (tnew. slowblnk  \]  tnew. fastblnk)  temp  |=  ISEL; 

if  (tnew.conceald)  temp  |=  CONC; 

intcmd[l]  =  convrtb[ temp] ; 

addstr ^ntcmd,  2) ; 

} 

else 

( 

intcmd[0]  =  SFE; 
intcmd[2]  =  FLDATT; 
temp  =  0; 

if  (tnew. guard)  temp  |=  NENT  |  NUM; 
if  (tnew. bright)  temp  ]=  ISEL; 
if  (tnew.conceald)  temp  |=  cONC; 
intcmd[3]  =  convrtb [ temp ] ; 
intcmd[4]  =  HILITE; 

intcmd[5]=  (tnew. slowblnk  ||  tnew. fastblnk  ?  BLINK  : 
((hilite  &  2)  &&  tnew. bgcolor)  |1 

(! (hilite  &  2)  &&  cmap[ tnew. bgcolor]  > 
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cinap[tnew.  fgcolor] ) 

?  INVID  : 

tnew.undrscor  ?  ULINE  : 

DEFAULT) ; 
if  (hilite  &  2) 

{ 

intcind[l]  =  3; 
intcmd [ 6 ]  =  COLOR ; 

intcmd[7]  =  coltab[tnew. bgcolor  ?  tnew. bgcolor  ; 
tnew. fgcolor] ; 

addstr (intcmd,  8) ; 

} 

else 

( 

intcmd [ 1 ]  =  2 ; 
addstr  ^ntcmd,  6)  ; 

} 

} 

} 

/*  NAME 

*  movcur  -  MOVe  CURsor  (internal) 

*  SYNOPSIS 

*  static  void  movcur () 

*  DESCRIPTION 

*  Moves  the  terminal  cursor  to  the  current  cursor  position 
*/ 

static  void  movcur () 

{ 

char  intcmd[4]; 

if  (vt.curpos  !=  vt.termpos) 

{ 

intcmd[0]  =  SBA; 

putaddr ( & intcmd [ 1 ] ,  vt . curpos ) ; 

addstr (intcmd,  3) ; 

) 

vt.termpos  =  vt.curpos; 

) 

/*  NAME 

*  getaddr  -  GET  ADDRess 

* 

*  SYNOPSIS 

*  static  int  getaddr (ptr) 

*  char  *ptr; 

* 

*  DESCRIPTION 

*  Returns  the  12  or  14  bit  address  represented  by  the  two 
bytes  pointed  to 

*  by  ptr. 

*/ 

static  int  getaddr (ptr) 
char  *ptr; 

( 
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if  ((*ptr  &  OxcO)  ==  0)  return  (*ptr  <<  8)  |  *(ptr  +  1) ; 

else  return  ((*ptr  &  0x3f)  <<  6)  |  (*(ptr  +  1)  &  Ox3f) ; 

) 

/*  NAME 

*  putaddr  -  PUT  ADDRess 

* 

*  SYNOPSIS 

*  static  void  putaddr (ptr,  val) 

*  char  *ptr; 

*  int  val ; 

* 

*  DESCRIPTION 

*  Encodes  the  value  into  a  12  or  14  bit  address  (depending 
on  vt.maxpos)  in 

*  the  two  bytes  pointed  to  by  ptr. 

*/ 

static  void  putaddr (ptr,  val) 
char  *ptr; 
int  val; 

{ 

if  (vt.maxpos  <  4096) 

{ 

*ptr++  =  convrtb[val  >>  6]; 

*ptr  =  convrtb[val  &  0x3f ] ; 

} 

else 

{ 

*ptr++  =  val  »  8 ; 

*ptr  =  val  *  Oxff; 

} 

} 

/*  NAME 

*  addchr  -  ADD  CHaRacter  td  buffer 

* 

*  SYNOPSIS 

*  static  void  addchr (c) 

*  char  c ; 

* 

*  DESCRIPTION 

*  Adds  the  specified  character  to  the  buffer,  flushing  as 
required. 

*/ 


static  void  addchr (c) 
char  c; 

{ 

if  (tbptr  >=  tbend)  intfls() ; 
*tbptr++  =  c; 

} 


F-11 


UM  620344300 
30  September  1990 


/*  NAME 

*  addstr  -  ADD  STRing  to  buffer 

*  SYNOPSIS 

*  static  void  addstr (s,  1) 

*  char  *s ; 

*  int  1 ; 

* 

*  DESCRIPTION 

*  Adds  the  specified  string  to  the  buffer, 
required. 

*/ 


flushing  as 


static  void  addstr (s,  1) 
char  *s; 
int  1; 

{ 

if  (tbptr  +  1  >  tbend)  intfls(); 
memcpy(tbptr,  s,  1) ; 
tbptr  +=  1; 

} 
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